Re: what is the return value

That code won't work.

Put "use strict; use warnings;" in

use strict;
use warnings;
sub firstline {
  open (my $in, shift) && return scalar <$in>;
  # no close() required
}

print firstline("/etc/hosts");
[download]

and you'll get:

Global symbol "$in" requires explicit package name at firstline.pl lin
+e 4.
Execution of firstline.pl aborted due to compilation errors.
[download]

If you don't use strict/warnings, you'll simply get an empty line.

Update: Removed the "; 1 " which I putted in to make the code at least print out something.

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
Comment on Re: what is the return value
Select or Download Code

Replies are listed 'Best First'.
Re^2: what is the return value by choroba (Cardinal) on Jul 09, 2013 at 13:52 UTC
Works for me. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]
Re^3: what is the return value by Skeeve (Parson) on Jul 09, 2013 at 14:01 UTC
Maybe different perl version? $ perl -v This is perl 5, version 14, subversion 2 (v5.14.2) built for cygwin-th +read-multi-64int (with 7 registered patches, see perl -V for more detail) Copyright 1987-2011, Larry Wall Perl may be copied only under the terms of either the Artistic License + or the GNU General Public License, which may be found in the Perl 5 source ki +t. Complete documentation for Perl, including FAQ lists, should be found +on this system using "man perl" or "perldoc perl". If you have access to + the Internet, point your browser at http://www.perl.org/, the Perl Home Pa +ge. [download] `s$$([},&%#}/&/]+}%&{});#$&&s&&$^X.($'^"%]=\&(\|?{%` `+`.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e	[reply] [d/l] [select]
Re^4: what is the return value by choroba (Cardinal) on Jul 09, 2013 at 14:36 UTC
No, the update was the reason. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]