Re: Print to specific line

One approach is to grab the number, stuff all lines into a hash, then print the sorted lines. I made many assumptions about your input and output.

use warnings;
use strict;

my %lines;
while (<DATA>) {
    my ($num) = $_ =~ /(\d+)$/;
    $lines{$num} = $_;
}
for (sort {$a <=> $b} keys %lines) {
    print $lines{$_};
}

__DATA__
foo bar 4
goo 1
hoo boo boo 2
yeah 3
[download]

Outputs:

goo 1
hoo boo boo 2
yeah 3
foo bar 4
[download]

Comment on Re: Print to specific line Select or Download Code

Replies are listed 'Best First'.
Re^2: Print to specific line by 1nickt (Canon) on Jun 23, 2015 at 18:07 UTC
Don't think this would work as he wants if the data are as follows: `__DATA__ foo bar 3 goo 1 hoo boo boo 5 yeah 7` [download]	[reply] [d/l]
Re^3: Print to specific line by toolic (Bishop) on Jun 23, 2015 at 18:23 UTC
It works for me (output): `goo 1 foo bar 3 hoo boo boo 5 yeah 7` [download]	[reply] [d/l]
Re^4: Print to specific line by 1nickt (Canon) on Jun 23, 2015 at 18:31 UTC
Hi Toolic, Sure don't want to be argumentative, or nitpick, but the OP said in his spec that the strings had to be printed at the line number of the text file that corresponded to the number in the input.	[reply]
Re^5: Print to specific line by Anonymous Monk on Jun 23, 2015 at 18:32 UTC
Re^6: Print to specific line by 1nickt (Canon) on Jun 23, 2015 at 18:39 UTC
Some notes below your chosen depth have not been shown here
Re^3: Print to specific line by GotToBTru (Prior) on Jun 23, 2015 at 18:49 UTC
In what way will it not work? Dum Spiro Spero	[reply]
Re^4: Print to specific line by 1nickt (Canon) on Jun 23, 2015 at 18:54 UTC
Because it doesn't account for non-sequential numbers and therefore doesn't meet the spec.	[reply]
Re^5: Print to specific line by GotToBTru (Prior) on Jun 23, 2015 at 19:05 UTC