Thread $ARGV[0] in @array überprüfen (28 answers)
Opened by Duff at 2007-10-18 18:20

renee
 2007-10-19 14:39
#101108 #101108
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
$#array gibt den Index des letzten Arrayelements (nicht die Anzahl der Elemente) zurück... Und wenn gar kein Element in einem Array ist (hier: kein Parameter übergeben wurde), dann ist der Index -1!

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl

use strict;
use warnings;

my @array = qw(hallo welt);
warn ">>$#ARGV<<";

if( $#ARGV == -1 || (!grep{ $ARGV[0] eq $_} @array )) {
    warn "fehler";
}
else{
    warn "alles ok!";
}


Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
C:\>argv.pl
>>-1<< at C:\argv.pl line 7.
fehler

C:\>argv.pl hall
>>0<< at C:\argv.pl line 7.
fehler

C:\>argv.pl hallo
>>0<< at C:\argv.pl line 7.
alles ok!

C:\>
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread $ARGV[0] in @array überprüfen