On 2012-07-27 16:58, Andy Bach wrote:
if ($model=~/(\S+)\s+(.*)\s*$/) {
The \s* in the end does nothing.
Closer:
/(\S+)\s+(.*\S)/
Then play with this:
perl -Mstrict -we'
my $data= $ARGV[0] ? q{Ford} : qq{ \t Fiat Ulysse 2.1 TD };
printf qq{<%s> <%s>\n}, split( q{ }, $data, 2 ), q{oops};
printf qq{<%s> <%s>\n}, $data =~ / (\S+) \s* ( (?: .* \S )? )/x;
' 1
<Ford> <oops>
<Ford> <>
--
Ruud
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
