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]; open (INF, "/pkg/ldc/talkbank/nahuatl/DAT/am/log/Am$prefix.log"); while ((<INF>) && ($count < 3)) { if (/ORIG/) { @t = split(/\t/); $time[$count] = $t[3]; } if (/REDO/) { @t = split(/\t/); $time[$count] = $t[1]; } $count++; } print $time[1] - $time[2]; print "\n";