perl module in teamsite

sun9

I am new to working with perl on teamsite. I am trying to test my perl code through command line on the teamsite server but am not able to get my code to work using the Tie::File module. My code is supposed to parse the test.txt file and print the content to the log file but the log file just shows a blank entry when i try to print @data in the log file. I am able to get it to work in my windows environment (not teamsite) . I checked to see if this perl module exists on the teamsite server using
perl -Tie::File -e 1
and it looks like this module already exists since I did not get any error message.
I am trying to run this code using the following command-
/apps/intrwvn/iw-home/iw-perl/bin/iwperl test.ipl

#!/apps/intrwvn/iw-home/iw-perl/bin/iwperl

use TeamSite::Config;
use Tie::File;

my $file = 'test.txt' ;
my $logfile = 'log.txt' ;
sub log {
$logentry = shift @_;
$status = shift @_;
$time = localtime;
open(LOG, ">>log.txt") || die "$log can't be appended to: $!\n";
print LOG "$time: $logentry\n";
close LOG;
if ($status eq "exit") {
exit;
}
}
tie my @data, 'Tie::File', $file ;
&log(@data);

untie @data ;

Any pointers/tips appreciated.

Adam Stoller

I am new to working with perl on teamsite. I am trying to test my perl code through command line on the teamsite server but am not able to get my code to work using the Tie::File module. My code is supposed to parse the test.txt file and print the content to the log file but the log file just shows a blank entry when i try to print @data in the log file. I am able to get it to work in my windows environment (not teamsite) . I checked to see if this perl module exists on the teamsite server using perl -Tie::File -e 1 and it looks like this module already exists since I did not get any error message.

I believe the command line you should be using is:

iwperl -MTie::File -le "print $Tie::File::VERSION;"

The use of

iwperl

instead of

perl

ensures that you are running TeamSite's perl and not some other version that exists on the server.
You need to use the

-M

flag in order to load the module (perhaps that was just a typo in your post?)
The print statement will ensure that you can access part of the module.

I am trying to run this code using the following command- /apps/intrwvn/iw-home/iw-perl/bin/iwperl test.ipl #!/apps/intrwvn/iw-home/iw-perl/bin/iwperl use TeamSite::Config; use Tie::File; my $file = 'test.txt' ; my $logfile = 'log.txt' ; sub log { $logentry = shift @_; $status = shift @_; $time = localtime; open(LOG, ">>log.txt") || die "$log can't be appended to: $!\n"; print LOG "$time: $logentry\n"; close LOG; if ($status eq "exit") { exit; } } tie my @data, 'Tie::File', $file ; &log(@data); untie @data ; Any pointers/tips appreciated.

I suggest you re-read the perldoc for Tie::File - because I think you're missing something here. Once you tie the array to the file - you should be reading / writing data from / to the file via the array. Try this:

use strict;
use Tie::File;
my $file = 'test.txt';
{
    print "WRITE: " . localtime() . "\n";
    tie my @data, 'Tie::File', $file or die $?;
    $data[0] = "This is line 1: " . localtime();
    $data[3] = "This is line 4: " . localtime();
    untie @data;
}
sleep 3;
{
    print "READ: " . localtime() . "\n";
    tie my @data, 'Tie::File', $file or die $?;
    print "> " . join("\n> ", @data) . "\n";
    untie @data;
}