baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
|
Alle Einträge zum Thema: | Zur Liste |
sub dynatable{ # @tz_inhalt soll als Liste übergeben werden # $teiler soll als scalar übergeben werden # $flag soll als scalar übergeben werden
my $tz; # lexikalisch um Quereffekte zu vermeiden while(@l_tzinhalt){ $tz.= "<tr>"; # neue Tab-Zeile my $trenntd = "<td width=1 bgcolor=$fd><img src=$pix width=1></td>" if $flag eq "trennung"; for ($z=1; $z<=$teiler; $z++){ # soviele Tab-Zellen wie durch \$teiler vorgegeben $trenntd = "" if ($z == $teiler); # keine Trennzeile wenn Letzte Tab-Zelle in Zeile $tz.= shift @l_tzihnalt; $trenntd = $#l_tzihnalt > -1 ? $trenntd : ""; # noch Tab-Zelle aus Liste für die akt.Tab-Zeile? - dann Trennzeile dazu $tz.= $trenntd; } $tz.= "</tr>"; # Tabellenzeilenende } my $tab_dyna = "<table align=center border=1 cellspacing=0 cellpadding=0>$tz</table>"; return $tab_dyna; }
my (@l_tzinhalt, $teiler, $flag) = @_; # alles übergebene Werte
@arr=("bla","blubb"); $teiler=1; $flag=0; &blubb(\@arr,$teiler,$flag); sub blubb{ my @l_tzinhalt=@{shift @_}; # liste rausholen my ($teiler,$flag)=@_; # skalare rausholen out "@l_tzinhalt"; }
sub blubb { my($liste, $teiler, $flag)=@_; out "@$liste"; }
@x=(1,2,3); &test(\@x); out "@x"; sub x { my $r=$_[0]; $$r[0]=4; }
>> letzter zeit ist nextfloor ab und zu einfach nicht erreichbar
Liste der Einträge von 36000 bis 36150: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |