Lectures notes for 2010 - KTH

Using a Perl script
#!/usr/bin/perl -w
# each input line consists of a triple: Time,Source,RSSI
# separate the file based upon making a file for each source containing only the Time and RSSI
#
# 2007.12.27 G. Q. Maguire Jr. and M. E. Noz
#
# Security blankets - Perl authors claim programs are unsafe without this
# This only removes directories that have no files in them
#Use only perl libary
#@INC = $INC[$#INC - 1];
#die "Perl library is writable by the world!\n" if $< && -W $INC[0];
$ENV{’IFS’} = ’’ if $ENV{’IFS’};
umask 002;
# get the main directory paths
$project_dir = ’/home/noz’;
$filename = ’all-time-source-RSSId.csv’;
#$filename = ’all-time.small’;
$sourcename = ’’;
$sourcename1 = ’’;
$time = ’’;
$RRSID = ’’;
$count = 0;
&create_tmp_file;
#open the data file for reading
open(DATA_FILE, $filename) || die "Can’t open data file: $!\n";
while ($varrec = ) {
if ($varrec =~ /^#/) {
$count = 1;
next;
}
else {
chop($varrec);
print "count is $count\n";
# print "varrec is $varrec\n";
($time, $sourcename, $RSSId) = split(/,/, $varrec);
# print "time is $time, sourcename is $sourcename, RSSId is $RSSId\n";
if ($count == 1) {
$sourcename1=$sourcename;
Maguire Using a Perl script 1: 84 of 104
maguire@kth.se 2010.03.21 Internetworking/Internetteknik