Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Extracting text from a line

by nvivek (Vicar)
on Jul 12, 2010 at 04:23 UTC ( #848920=note: print w/ replies, xml ) Need Help??

in reply to Extracting text from a line

You try this.It is similar to almut's answer but we don't know whether there will be space between UID: and string.Following will solve that problem and it works.

#!usr/bin/perl use strict; use warnings; my @input = ("Supervisor UID: plbaerr4", "UID:dlsmith3", "Peon UID: jklmn2"); open FH,">output.txt" or die "can't open file for writing:$!"; for my $string (@input) { print FH $1 if($string=~/^UID:\s*(\w+)/); } close FH;

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (11)
As of 2016-08-25 17:07 GMT
Find Nodes?
    Voting Booth?
    The best thing I ever won in a lottery was:

    Results (361 votes). Check out past polls.