User manual

if ($#ARGV != 0){

print "Usage: rmnum.pl <csv-file>\n";

exit;

}

$csvfile=$ARGV[0];

open(FILE, "$csvfile") or die "Could not open file\n\n";

@lines = <FILE>;

#removes the previously inserted number and quotations from the

beginning of each line

for $lines (@lines)

{

substr($lines, 0, 11) = "";

}

close FILE;

open(FILE, ">$csvfile") or die "Could not open file\n\n";

for $lines (@lines)

{

print FILE $lines;

}

close FILE;

16.2.7 Convert Name to Numbers (name2num.pl)

#!/usr/local/bin/perl

#converts the names of the contacts to numbers so they can be read by

the voicemail software

if ($#ARGV != 0){

print "Usage: name2num.pl <csv-file>\n";

exit;

}

$csvfile=$ARGV[0];

open(FILE, "$csvfile") or die "Could not open file\n\n";

@lines = <FILE>;

close FILE;

#z used for index of new array with new file contents

$z = 0;

open(NEWFILE, ">upload.csv") or die "Could not open file\n\m";

foreach $line (@lines)

{

reset '$newLine';

#print "\n\n j = $j \n\n";

$line =~ s/"//g;

print $line;

@split = split(/,/, $line);