Page MenuHomeHEPForge
Files F9501181

reaction_fs2.pl
No OneTemporary
Actions

reaction_fs2.pl
View Options

#!/bin/perl -w
while ($line = <>){
chomp($line);
($reac,$tab,$reac) = split /\s+/,$line,3;
($init,$final) = split />/,$reac;
@i = split / /, $init;
if ($#i == 2 || $#i == 1) {
($dummy,@j) = split / /, $final;
foreach $j (@j) {
$first = substr($j,0,1);
if($first =~ m/\d/) {
$j = substr($j,1); }
$first = substr($j,0,1);
if($first =~ m/\d/) {
$j = substr($j,1); }
$j = "\t$j";
}
if($i[1] eq '--') {$i[1] = '';}
$final =~ s/^\s+//;
$final =~ s/\s+$//;
print $line,"\t",$i[0],"\t",$i[1],"\t",$final,@j,"\n";
}
else{
print $line,"\n";
}
}

File Metadata

Mime Type
text/x-perl
Expires
Sun, Feb 23, 2:01 PM (1 h, 39 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
4481949
Default Alt Text
reaction_fs2.pl (703 B)

Event Timeline