Bret Goodfellow [BG], on Wednesday, June 22, 2005 at 15:11 (-0600)
typed the following:
BG> All right, I know how to do this in REXX because there is a word()
BG> function, but how do I do this in Perl. I want to read in one record at
BG> a time, that has space-delimited fields. There may be multiple spaces
BG> between the words. I want to be able to get for example, the 4th word
BG> of the record. How do I do this? Just for grins, my record looks like
BG> this:
BG> /dev/sun11/lvol13 1032192 377921 613445 38% /techsupp
use regular expressions, for example like this:
use strict;
use warnings;
my $string = '/dev/sun11/lvol13 1032192 377921 613445 38% /techsupp';
# for every word in $string
while ( $string =~ /(\S+\s+)/g ) {
print $1, "\n";
}
#get 4th word in string
my ($out) = $string =~ /(?:\S+\s+){3}(\S+)/;
print $out;
__END__
\s - white character (spaces, tabs...)
\S - opposite of \s
--
...m8s, cu l8r, Brano.
[Confucious say: Man who smoke pot choke on handle.]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
