qual.pl
No OneTemporary
Actions

Size

370 B

Subscribers

None

qual.pl
View Options

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

File Metadata

Mime Type: text/x-perl
Expires: Sat, Dec 21, 6:11 PM (7 h, 39 m)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 4013520
Default Alt Text: qual.pl (370 B)

Event Timeline