Zeilenzahl bestimmen bei veränderten Seperator - #160422 (Allgemeines zu Perl)

Muffi

2012-08-01 14:57

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Achtung, leichte Ironie:
Dir fehlt noch ein Hash, der %ARGV heisst. Array, Skalar und Filehandle hast du ja schon ;)

Ansonsten, was macht denn das?

Code (perl): (dl )

unshift(@ARGV, '-') unless @ARGV;

Und wo wird @_ belegt?

Code (perl): (dl )

while ($ARGV = shift) {

1 + 1 = 10