Re: splitting a word

my $firstname = 'Parham';  #set first name
$firstname =~ /^(\w)/;     #grab the first letter
print $1;                  #print the first letter
[download]

i think the syntax of:

my ($variable) = $variable =~ /regex/;
[download]

disregards the purpose of the $(number) variables which is why i stay away from them.

Comment on Re: splitting a word Select or Download Code

Replies are listed 'Best First'.
Re: Re: splitting a word by Hofmator (Curate) on Jan 16, 2002 at 17:43 UTC
I think the syntax `($match) = $var =~ /regex/;` is a concise and flexible way to extract parts of a string. The following code should illustrate this nicely - note especially the usage with the /g modifier. `#!/usr/bin/perl -w use strict; $_ = q/one two three four five/; my ($match, @matches); ($match) = /\w+\W+(\w+)/; print $match, "\n"; # prints two @matches = /(\w+)\W+(\w+)/; print join('\|', @matches), "\n"; # prints one\|two @matches = /(\w+)\W+(\w+)/g; print join('\|', @matches), "\n"; # prints one\|two\|three\|four @matches = /(\w+)/g; print join('\|', @matches), "\n"; # prints one\|two\|three\|four\|five` [download] -- Hofmator	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: splitting a word
by Hofmator (Curate) on Jan 16, 2002 at 17:43 UTC

I think the syntax ($match) = $var =~ /regex/;

is a concise and flexible way to extract parts of a string. The following code should illustrate this nicely - note especially the usage with the /g modifier.

#!/usr/bin/perl -w
use strict;
 
$_ = q/one two three four five/;
 
my ($match, @matches);
($match) = /\w+\W+(\w+)/;
print $match, "\n";
# prints two
 
@matches = /(\w+)\W+(\w+)/;
print join('|', @matches), "\n";
# prints one|two
 
@matches = /(\w+)\W+(\w+)/g;
print join('|', @matches), "\n";
# prints one|two|three|four
 
@matches = /(\w+)/g;
print join('|', @matches), "\n";
# prints one|two|three|four|five
[download]

-- Hofmator

[reply]
[d/l]
[select]