Re^2: I need just the value

#!/usr/bin/perl
use strict;
use warnings;
# 767362


my $out_line;
my @line = <DATA>;
for my $line (@line) {
    chomp $line;
    $out_line .= ( $line . "/" );
}
if ( $out_line =~ /(.*)\/$/ ) {  # capture everything before a slash i
+mmediately preceding EOL
    $out_line = $1;          # and overwrite $out_line with what you c
+aptured
}
print $out_line . "\n";

__DATA__
10
9999
456
...
[download]

Output: 10/9999/456/...

See perlretut and Tutorials. (And, as may be obvious, it would probably be smarter to incorporate this into the previous solution, rather than create a separate script)

Comment on Re^2: I need just the value Select or Download Code

Replies are listed 'Best First'.
Re^3: I need just the value by ikegami (Patriarch) on Jun 02, 2009 at 03:32 UTC
That looks very complicated. Simpler: `while (<>) { print("/") if $. != 1; print(/=(.)/); } print("\n");` [download] (Works from your original input) Update*: By the way, the following is wasteful: `my @line = <DATA>; for my $line (@line) {` [download] It loads the entire file into memory for nothing. Use the following instead: `while (my $line = <DATA>) {` [download]	[reply] [d/l] [select]