HI
Sombody help me if i give ([a-z]+)(.*)([a-z]+) as input string output i get
is
$1 is 'silly'
$2 is 'silly'
$3 is 'silly'
this is wrong according to be book i refer
please somone clarify me code i used is as below
use strict;
use warnings;
$_ = '1: A silly sentence (495,a) *BUT* one which w
Hi
open FILE, "file.txt" or die $!;
while ()
Sombody please tell me why do i get the message as below if i want to print
the contents of text file
Name "main::FILE" used only once: possible typo at nl.plx line3.
1:f:/file.txt
and my file is not executed (i did not get the output)
regards
Badr
Hi
Can sombody hepl me in the below prog
I could not get any output
please tell me the mistake i hav done and where
also suggest me how to go with this
my $lineno;
my $current =3D "";
while(<>){
if($current ne $ARGV){
$current =3D $ARGV;
print "\n\t\tFile: $ARGV\n\n";
$lineno=3D1;
}
print