laveena
Novice
Sep 7, 2006, 3:09 AM
Post #1 of 4
(206 views)
|
|
Cant use an undefined value as a symbol reference at modify_sql.pl line 17
|
Can't Post
|
|
Hello,
i seem to get the above error when a run a script
modify_sql.sh .i do not know if the function by which it is called in in a right manner or not(perl 'modify_sql_uc3.pl' '2111.sql' 1 312312)Line 17 is :open my $fh, "< $filename" or die "cannot open $filename for reading $!";
modify_sql.pl
#! /usr/bin/perl
use strict;
#use warnings;
my ($filename,$stelle,$wert) = @ARGV;
my @ARGV = 3 or die "usage : There must be only 3 arguments";
#my ($filename,$stelle,$wert) = @ARGV;
unless ( -e "$filename")
{
print "Sorry $filename is not existing \n";
exit(0);
}
open my $fh, "< $filename" or die "cannot open $filename for reading $!";
my @filename =<$fh>;
my $size = @filename;
$size++;
for(my $i=$size;$i>$stelle-1;$i--)
{
$filename[$i]=$filename[$i-1];
}
close $fh;
$filename[$stelle-1]="INSERT INTO product.p_tmpr VALUES ( $stelle ,$wert);\n";
for(my $i=$stelle;$i<$size;$i++)
{
my $h=$i+1;
$filename[$i]=~ s/$i/$h/;
}
open my $fn, "> $filename.mod" or die"cannot open $filename.mod $!";
foreach my $element( @filename)
{
defined $element or $element ="";
print $fn $element;
}
close $fn;
.......................................
modify_sql.sh
#!/bin/ksh
export ENT=/home/atw11w99/ent/uc3
cd $ENT
perl 'modify_sql.pl' '2111.sql' 1 312312
would be thankfull for any advice
|
MAIN
SEARCH
WHO'S 
LOG 