y_axis.pl
No OneTemporary
Actions

Size

449 B

Subscribers

None

y_axis.pl
View Options

	#!/bin/perl
	while ($line = <>){
	chomp $line;
	$line =~ s/"//g;
	$line =~ s/\t//g;
	($rec,$tab,$ycol,$header,$n,$v,$dummy) = split /;/, $line, 7;
	if( $header eq " ") {$header = "";}
	if( $n eq " ") {$n = "";}
	if( $v eq " ") {$v = "";}
	$rec =~ s/^\s+//;
	$rec =~ s/\s+$//;
	$tab =~ s/^\s+//;
	$tab =~ s/\s+$//;
	$ycol =~ s/^\s+//;
	$ycol =~ s/\s+$//;
	print $rec,"\t",$tab,"\t",$ycol,"\t",$header,"\t",$n,"\t",$v,"\n";
	}
	exit(0);

File Metadata

Mime Type: text/x-perl
Expires: Sat, Dec 21, 5:01 PM (19 h, 8 m)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 4010556
Default Alt Text: y_axis.pl (449 B)

Event Timeline