|
#!/bin/perl
my $var = 2520440 / 2517740;
open(IN,"smi.org");
open(OUT,">tr.smi");
while($aline=<IN>) {
if($aline =~ /SYNC Start/i) {
my ($a,$b) = split(/SYNC Start=/i,$aline,2);
my ($c,$d) = split(/\>/,$b,2);
my $num = int($c * $var);
$aline="${a}SYNC Start=$num>$d";
}
print OUT $aline;
}
close(IN);
close(OUT);
|
|