a handy bit of code to use for that is the following:
{ local $/; $in=<FILEHANDLE> }
that undefs $/, which is the line seperator in perl (defaults to \n), which
means perl knows no longer a way to split lines,
and will feed everything in FILEHANDLE to $in.
local and the { } means that $/ original value will be restored once the
block exits...
this basicly has the same effect as saying:
while(<FILEHANDLE>) { $in .= $_; }
except that the local $/ solution is a bit more elegant and efficient =)
Regards,
Jos Boumans
----- Original Message -----
From: "Noah Sussman" <[EMAIL PROTECTED]>
To: "Noah Sussman" <[EMAIL PROTECTED]>; "Peter Cornelius"
<[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, May 15, 2001 10:14 PM
Subject: Re: negative matching?
> oops, I just said that:
>
> > Also, the regex I originally included will place alt attributes in _all_
IMG
> > tags, even if they already contain an alt attribute.
>
> Actually, the unless() stops that behavior, but creates a new problem in
> that, once it finds and IMG tag that has an ALT attribute, it stops the
> search altogether.
>
> I just wanted to clarify, since the problem is now solved. (See Jeff
> Pinyan's contribution to this thread for the solution.)
>
> Thanks again!
>
>
> --
> Noah Sussman
> Senior Web Developer
> Deltathree, The IP Communications Network
> 75 Broad St, 31st Floor
> New York, NY 10004
> tel 212-500-4845
> fax 212-500-4888
> [EMAIL PROTECTED]
> www.deltathree.com
>
>
> "The first 90% of the code accounts for the first 90% of the development
> time. The remaining 10% of the code accounts for the other 90% of the
> development time."
>
> -Tom Cargill
>
> > From: Noah Sussman <[EMAIL PROTECTED]>
> > Date: Tue, 15 May 2001 16:05:39 -0400
> > To: Peter Cornelius <[EMAIL PROTECTED]>,
<[EMAIL PROTECTED]>
> > Subject: Re: negative matching?
> >
> >> Why do you
> >> want to slurp everything into $_ at once?
> >
> > Because I want to insert the alt attribute even if the IMG tag spans
several
> > newlines, as is often the case once one's code has been mangled by the
> > server.
> >
> > Also, the regex I originally included will place alt attributes in _all_
IMG
> > tags, even if they already contain an alt attribute.
> >
> >
> >
> >
> > --
> > Noah Sussman
> > Senior Web Developer
> > Deltathree, The IP Communications Network
> > 75 Broad St, 31st Floor
> > New York, NY 10004
> > tel 212-500-4845
> > fax 212-500-4888
> > [EMAIL PROTECTED]
> > www.deltathree.com
> >
> >
> > "There is nothing more deceptive than an obvious fact."
> >
> > -Sherlock Holmes
> >
> >
> >> From: Peter Cornelius <[EMAIL PROTECTED]>
> >> Date: Mon, 14 May 2001 16:51:29 -0700
> >> To: 'Noah Sussman' <[EMAIL PROTECTED]>, [EMAIL PROTECTED]
> >> Subject: RE: negative matching?
> >>
> >> This seems to work for me as log as I leave out the 'undef $/;' Why do
you
> >> want to slurp everything into $_ at once?
> >>
> >> -----Original Message-----
> >> From: Noah Sussman [mailto:[EMAIL PROTECTED]]
> >> Sent: Monday, May 14, 2001 4:29 PM
> >> To: [EMAIL PROTECTED]
> >> Subject: negative matching?
> >>
> >>
> >> I am trying to write a simple script to insert ALT attributes into IMG
tags
> >> that don't have them, leaving other IMG tags untouched.
> >>
> >> The problem is that I can't figure out how to tell Perl to search for
> >> strings beginning with "<IMG", ending with ">" AND not containing
"ALT="
> >> (and it has to do this over multiple lines as well!).
> >>
> >> This is my code so far, any comments would be hugely appreciated:
> >>
> >> #! -w
> >> use strict;
> >>
> >> undef $/;
> >>
> >> my $text = "hello" ;
> >>
> >> while (<>) {
> >>
> >> unless (m{<img.*?alt=.*?>}ix){
> >>
> >> s{(<img)(.*?)>}{$1$2 alt="$text">}gsix;
> >>
> >> }
> >>
> >> print "$_";
> >>
> >> }
> >>
> >>
> >>
> >>
> >>
> >> --
> >> Noah Sussman
> >> Senior Web Developer
> >> Deltathree, The IP Communications Network
> >> 75 Broad St, 31st Floor
> >> New York, NY 10004
> >> tel 212-500-4845
> >> fax 212-500-4888
> >> [EMAIL PROTECTED]
> >> www.deltathree.com
> >>
> >>
> >> "Nature will tell you a direct lie if she can."
> >>
> >> -Charles Darwin
> >>
> >
>
>
