if anweisung (Allgemeines zu Perl)

[thread]8180[/thread]

if anweisung

Annka

2006-07-19 14:09

User since
2006-07-18
43 Artikel
BenutzerIn
[default_avatar]

hallo
ich möchte gerne mit meiner if anweisung bezwecken, dass alle spalten, die mit "in use" beginnen herausgelöscht werden, sodass da nur noch der rest steht... aber irgendwie gehts wieder nicht

Code: (dl )

while ($i<40)
{
            
    if ($first_col[$i] !~ /^in use/)
    {
    print "$first_col[$i]\n";
    push(@erste_Zeile, "$first_col[$i] \t");
    }
            
    $i++;
            
}
print "@erste_Zeile";

Edit: Code-Tags von betterworld\n\n

Annka

2006-07-19 14:12

User since
2006-07-18
43 Artikel
BenutzerIn
[default_avatar]

problem gelöst aus einmal gehts ^^

renee

2006-07-19 15:11

User since
2003-08-04
14371 Artikel
ModeratorIn

Nur mal ein allgemeiner Hinweis:

Schon in Deiner letzten Frage ist mir aufgefallen, dass Du so etwas in dieser Art machst:

Code: (dl )

1
2

push(@array,"irgendwas\t");
print "@array";

Wenn Du das Array nicht später noch für etwas anderes benötigst, würde ich es so schreiben:

Code: (dl )

1
2
3

my $string = '';
$string .= "irgendetwas\t";
print $string;

oder etwas ausführlicher:

Code: (dl )

1
2
3

my $string = '';
$string = $string . "irgendetwas\t";
print $string;

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 all threads created 2006-07-19 14:09.