Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6091[/thread]

bilder sortieren die 2.

Leser: 1


<< >> 5 Einträge, 1 Seite
misuzu
 2004-02-23 16:27
#80289 #80289
User since
2004-02-17
16 Artikel
BenutzerIn
[default_avatar]
hi zusammen,

da ich bei meinem letzten post zahlreiche tipps bekommen habe // danke erstmals

mein diesmaliges anliegen ist:

ich holle mir via chdir bilder aus ordnern.
soweit so gut.

jetzt möchte aber die ausgabe doch via tabelle formatieren.


der bisherrige vorgang :

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
chdir("img/db/$result[1]/mn");

my(@bilder);

push (@bilder, glob "*.jpg");
push (@bilder, glob "*.gif");


my $chk = 1;
foreach my $bild (@bilder) {
 print qq~<p class="dir-text"><img src="img/db/$result[1]/mn/$bild"></p>~;
 print "<br>" if $chk < 0; 
 $chk = - $chk;
}


jetzt würde ich gerne aber 2 bilder pro zeile ausgeben lassen:

bsp:

Code: (dl )
1
2
3
4
              <tr> 
                <td> bild1 </td>
                <td> bild2 </td>
              </tr>


so dass die schleife jeweils -wie nötig -die zeillen einrichtet auch bei ungerader bilderanzahl

wäre über tipps oder vorschläge dankbar

schönen tag noch

misuzu
renee
 2004-02-23 16:36
#80290 #80290
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
chdir("img/db/$result[1]/mn");

my(@bilder);

push (@bilder, glob "*.jpg");
push (@bilder, glob "*.gif");

print '<table><tr>';
my $check = 1;
foreach my $bild(@bilder){
  print '<td><img src="img/db/'.$result[1].'/mn/'.$bild.'"></td>';
  if($check == 2){
    print '</tr><tr>';
    $check = 0;
  }
  $check++
}
if($check == 1){
  print '<td>&nbsp;</td>';
}
print '</tr></table>';
\n\n

<!--EDIT|renee|1077547008-->
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/
misuzu
 2004-02-23 16:47
#80291 #80291
User since
2004-02-17
16 Artikel
BenutzerIn
[default_avatar]
danke renee

misuzu
Ronnie
 2004-02-23 17:11
#80292 #80292
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
Ich mag dieses Konstrukt:
Code: (dl )
print '</tr><tr>' if ($check++ % 2 == 0);

Mit dem Modulo-Operator spart man sich das Rücksetzen auf null. Außerdem kann man das Postinkrement verwenden.
eisbeer
 2004-02-24 13:28
#80293 #80293
User since
2003-08-29
347 Artikel
BenutzerIn
[Homepage] [default_avatar]
Genau, sowas mache ich auch immer mit modulo ...
Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...
<< >> 5 Einträge, 1 Seite



View all threads created 2004-02-23 16:27.