Re: Regexp substitution

2006-07-15 Thread John W. Kennedy
$Bill Luebkert wrote: > pDale wrote: >> On 7/15/06, John W. Kennedy <[EMAIL PROTECTED]> wrote: >> >>> But you can do it without using eval: >>> >>> use strict; >>> use warnings; >>> my $p1 = '^([^0-9]*)([0-9].*)$'; >>> my $p2 = '"'.'$2 $1'.'"'; #Note wrapping it with double quotes >>> my $str = 'ab

Re: File writing help

2006-07-15 Thread amit hetawal
Hi, I htink there is soem big problem with the cod ei am using for separraing the file coz when i use the statement print FL1 "$_", each time it writes only oneline in the file and then when it comes to the last_file thing it just runs the file with only one line in it cant i have an option to kno

Re: Regexp substitution

2006-07-15 Thread $Bill Luebkert
pDale wrote: > On 7/15/06, John W. Kennedy <[EMAIL PROTECTED]> wrote: > >>But you can do it without using eval: >> >>use strict; >>use warnings; >>my $p1 = '^([^0-9]*)([0-9].*)$'; >>my $p2 = '"'.'$2 $1'.'"'; #Note wrapping it with double quotes >>my $str = 'abc123xyz'; >>$str =~ s/$p1/$p2/ee; #Not

Re: File writing help

2006-07-15 Thread pDale
On 7/15/06, amit hetawal <[EMAIL PROTECTED]> wrote: > I am trying to divide a large file into small number of different > files and need to pass these smaller files as arugument to some other > perl script. If you can process each file as soon as it's done being written, it's very easy: > > Can

Re: Regexp substitution

2006-07-15 Thread John W. Kennedy
pDale wrote: > On 7/15/06, John W. Kennedy <[EMAIL PROTECTED]> wrote: >> But you can do it without using eval: >> >> use strict; >> use warnings; >> my $p1 = '^([^0-9]*)([0-9].*)$'; >> my $p2 = '"'.'$2 $1'.'"'; #Note wrapping it with double quotes >> my $str = 'abc123xyz'; >> $str =~ s/$p1/$p2/ee;

Re: Regexp substitution

2006-07-15 Thread pDale
On 7/15/06, John W. Kennedy <[EMAIL PROTECTED]> wrote: > > But you can do it without using eval: > > use strict; > use warnings; > my $p1 = '^([^0-9]*)([0-9].*)$'; > my $p2 = '"'.'$2 $1'.'"'; #Note wrapping it with double quotes > my $str = 'abc123xyz'; > $str =~ s/$p1/$p2/ee; #Note double e > prin

File writing help

2006-07-15 Thread amit hetawal
Hello, I am trying to divide a large file into small number of different files and need to pass these smaller files as arugument to some other perl script. Now my large file has the format as : Input file *** >testing1

Re: Regexp substitution

2006-07-15 Thread John W. Kennedy
pDale wrote: > On 7/15/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: >> hi pDale -- >> >> In a message dated 7/15/2006 12:35:22 A.M. Eastern Standard Time, >> [EMAIL PROTECTED] writes: >> >>> I'm having a hard time "asking the question" to Google... >>> >>> I want to read regular expressions fro