in reply to if statement/uninitialized value
if (defined($info) and (-e $info)) { unless ($query =~ /support/)) { print "<a href\=\"$webdir/cgi-bin/getprods.pl?$prodlisting\">" +; print "Product Listing</a><br><br>"; } open (FILE, $info) or die "Can't open file!"; print while <FILE>; close FILE; }
See perlvar for an explanation of $/.){ local $/ = undef; open (FILE, $info) or die "Can't open file!"; print <FILE>; close FILE; }
Makeshifts last the longest.
|
|---|