Tryag File Manager
Home
-
Turbo Force
Current Path :
/
home
/
cluster1
/
data
/
bu01
/
1121861
/
html
/
poser
/
Foley programs and data
/
spd24_nahuatl_dat_am
/
Upload File :
New :
File
Dir
//home/cluster1/data/bu01/1121861/html/poser/Foley programs and data/spd24_nahuatl_dat_am/firstBeep.perl
#!/usr/bin/perl $prefix = $ARGV[0]; $infile = "/pkg/ldc/talkbank/nahuatl/DAT/am/log/Am$prefix.log"; open (INF, "$infile") or die "can't open $infile"; $count = 0; $rcount = 0; while (<INF>) { chomp; @t = split(/\t/); if ($t[0] =~ /ORIG/) { $time[$count] = $t[3]; $count++; } if ($t[0] =~ /REDO/) { $rtime[$rcount] = $t[1]; $rcount++; } } print (($rtime[0] - $time[0]) / 1000); print "\n";