But what the content inside you file <I> ?
and what you suppose you to write to file <O> ?
Beside, seems you fotgot to close <O>; close <I> =)
Smiley Connie =)
----- Original Message -----
From: "M z" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, July 02, 2002 8:51 AM
Subject: multi-line regex question, please help!
> Dear all,
>
> I am truly bewildered as to why I can't get this
> script to do what I want. Namely, to get the
> multiline match. Please help!!!! see section of code
> surrounded by ######## for question area
>
> sample input:
>
> M0011
> XYZabcdefh
>
> #!C:/perl/bin -w
>
> die "Usage perl qup.pl <input> <output>" unless @ARGV
> == 2;
>
> my $in = $ARGV[0];
> my $out = $ARGV[1];
>
> open(I, "$in");
> open(O, ">$out");
>
> while (<I>) {
> s/^ +//gi;
> ###below, I think I count for M0011 in $1
> ###then, i thought by using the /m modifier,
> ###i could but a caret after the \n
> ###this doesn't work for me, please help
> ########
> $_ =~ s/^(M\d+)\n^(.*)/A $1\nB $2/mi;
> ########
> print O "$_";
>
>
> }
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! - Official partner of 2002 FIFA World Cup
> http://fifaworldcup.yahoo.com
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
