Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: how to express $temp =~ s/.*?from://; in perl 4

by splinky (Hermit)
on Jul 30, 2000 at 18:45 UTC ( [id://25159]=note: print w/replies, xml ) Need Help??


in reply to how to express $temp =~ s/.*?from://; in perl 4

Since you're looking for a constant string, you can use substr and index in place of the regex, like so:

$temp = substr ( $temp, index ( $temp, 'from:' ) + 5 ) if $temp =~ /from:/;

Note that, since I don't have Perl 4 installed anywhere, the code above is untested under Perl 4.

*Woof*

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://25159]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2024-04-19 07:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found