hello all,
i've wrote a small test subroutine in my file name test.pm and in the same
directory i worte
a perl file in which i've to call this subroutine in this perl program
I dont know how to use perl modules
pls let me knwo abt that as it will solve my lots of problems
test.pm
sub ReturnVa
Hy,
If i under stand clearly try this
my $s="'123PS01A'~^ '123PS01B'~^ '123PS01C'~^ '123PS01D'~^";
my @abhi=split(/ /,$s);
for ( my $i=0;$i<@abhi;$i++) {
print $abhi[$i] . "\n";
}
Abhishek Dave
- Original Mess
just another method
$str = q/[EMAIL PROTECTED]/;
if ($str=~ /(\S*)(\@)(\S*)/) {
$s=$3;
$s=~tr|_|.|;
$str=$1.$2.$s;
}
abhi
- Original Message -
From: "Ramprasad A Padmanabhan" <[EMAIL PROTECTED]>
Newsgroups: perl.beginners
To: "perl beginners"
Sent: Thursday, March 31, 2005 3:13 PM
Subj
Hello ,
i am sticking with a problem to replace all words of a file in such a =
manner that the first and second word need to interchanged.
some thing like ...
10 11 2 20001
so that the output file will be
11 1 20001 2
any helpful regex ???
thanks
I am stucking with my problem of reading xml file ,
I am trying to remove the new line chars form xml file and just readout the xml
tags.
Please any guys have a look at this one.
please guide me some good stuff abut regex in perl .
Thanks and Regards,
abhishek
