Re: Most Efficient Way to match this

To get the first field of the line, assuming the line is stored in the $line variable you could do this, using the split function:

my @fields = split /:/, $line;
my $linefraq = $fields[0];
[download]

Or, shorter:

my $linefraq = (split /:/, $line)[0];
[download]

You could also use a regular expression:

$linefraq = $1 if $line =~ /^(\w+?):/;
[download]

Je suis Charlie.

Comment on Re: Most Efficient Way to match this Select or Download Code

Replies are listed 'Best First'.
Re^2: Most Efficient Way to match this by kroach (Pilgrim) on Mar 30, 2015 at 22:02 UTC
One more way: `my ($linefraq) = split ':', $line;` [download]	[reply] [d/l]