Søg
Avatar billede Boddicker Seniormester
29. januar 2000 - 10:41 Der er 14 kommentarer og
1 løsning

Dirlisting igen igen!

Nå, jeg kan lige så godt få brændt de sidste points af jeg har. Min dirlisting-script mangler stadig lidt i at være, nøjagtig, som jeg vil have det. Jeg vil gerne have føjet to features ind i det. 1) Dir-ud-dumpningen skal være alfabetiseret. 2) Den skal IKKE tage filen: index.shtml med.

That's it.

Scriptet ser således ud (og I skal stadigvæk ikke lade jeg skræmme af script-længden):

#!/usr/bin/perl                   

### Bemærk at i ovennævnte linie brues #! efterfulgt af stien til perl!

########################################################################
################ Copyright (C)2000,  Thomas Turn Jensen ################
################ http://www.archer.dk  Mukke@archer.dk ################
########################################################################
################    Version of this script:    1.0    ################
########################################################################

opendir(DIR, '/hotel/movieboxen/WWW/arkiv/html');
@Files = readdir(DIR);
closedir(DIR);

print "content-type: text/html\n\n";
print "<html><head>\n";
print "<script language=\"JavaScript\">\n";
print "<!--\n";
print "var img1onName, img2onName;\n";
print "// Find browser Netscape 3+ eller IE 4 +.\n";
print "bName = navigator.appName;\n";
print "bVer = parseInt(navigator.appVersion);\n";
print "if (bName == \"Netscape\" && bVer >= 3) {\n";
print "br = \"n3\";\n";
print "img1onName = \"http://www.movieboxen.dk/grafik/nyhedervalg.gif\";\n";
print "img2onName = \"http://www.movieboxen.dk/grafik/naesteugevalg.gif\";\n";
print "img4onName = \"http://www.movieboxen.dk/grafik/kalenderenvalg.gif\";\n";
print "img5onName = \"http://www.movieboxen.dk/grafik/arkivetvalg.gif\";\n";
print "img6onName = \"http://www.movieboxen.dk/grafik/kontaktosvalg.gif\";\n";
print "img7onName = \"http://www.movieboxen.dk/grafik/ommovieboxenvalg.gif\";\n";
print "img8onName = \"http://www.movieboxen.dk/grafik/linksvalg.gif\";\n";
print "    }\n";
print "    else if (bName == \"Microsoft Internet Explorer\" && bVer >= 4) {\n";
print "        br = \"e3\";\n";
print "        img1on = new Image();\n";
print "        img1on.src = \"http://www.movieboxen.dk/grafik/nyhedervalg.gif\";\n";
print "        img2on = new Image();\n";
print "        img2on.src = \"http://www.movieboxen.dk/grafik/naesteugevalg.gif\";\n";
print "        img4on = new Image();\n";
print "        img4on.src = \"http://www.movieboxen.dk/grafik/kalenderenvalg.gif\";\n";
print "        img5on = new Image();\n";
print "        img5on.src = \"http://www.movieboxen.dk/grafik/arkivetvalg.gif\";\n";
print "        img6on = new Image();\n";
print "        img6on.src = \"http://www.movieboxen.dk/grafik/kontaktosvalg.gif\";\n";
print "        img7on = new Image();\n";
print "        img7on.src = \"http://www.movieboxen.dk/grafik/ommovieboxenvalg.gif\";\n";
print "        img8on = new Image();\n";
print "        img8on.src = \"http://www.movieboxen.dk/grafik/linksvalg.gif\";\n";
print "    }\n";
print "    else {\n";
print "        br = \"n2\";\n";
print "    }\n";
print "// Lav objekter og preload billeder.\n";
print "    if ((br == \"n3\") || (br == \"e3\")) {\n";
print "        img1off = new Image();\n";
print "        img1off.src = \"http://www.movieboxen.dk/grafik/nyheder.gif\";\n";
print "        img2off = new Image();\n";
print "        img2off.src = \"http://www.movieboxen.dk/grafik/naesteuge.gif\";\n";
print "        img4off = new Image();\n";
print "        img4off.src = \"http://www.movieboxen.dk/grafik/kalenderen.gif\";\n";
print "        img5off = new Image();\n";
print "        img5off.src = \"http://www.movieboxen.dk/grafik/arkivet.gif\";\n";
print "        img6off = new Image();\n";
print "        img6off.src = \"http://www.movieboxen.dk/grafik/kontaktos.gif\";\n";
print "        img7off = new Image();\n";
print "        img7off.src = \"http://www.movieboxen.dk/grafik/ommovieboxen.gif\";\n";
print "        img8off = new Image();\n";
print "        img8off.src = \"http://www.movieboxen.dk/grafik/links.gif\";\n";
print "    }\n";
 
print "// Aktiver billeder.\n";
print "function imgAct(imgName) {\n";
print "    if (br == \"n3\") {\n";
print "        document[imgName].src = eval(imgName + \"onName\");\n";
print "    }\n";
print "    else if (br == \"e3\") {\n";
print "        document[imgName].src = eval(imgName + \"on.src\");\n";
print "    }\n";
print "}\n";
print "// Deaktiver billeder.\n";
print "function imgInact(imgName) {\n";
print "    if ((br == \"n3\") || (br = \"e3\")) {\n";
print "    document[imgName].src = eval(imgName + \"off.src\");\n";
print "    }\n";

print "}\n";
print "// -->\n";
print "</script>\n";


print "<style>\n";
print "body {font-family: Arial, Verdana, Helvetica, sans-serif; font-size: 10pt;}\n";
print "td {font-family: Arial, Verdana, Helvetica, sans-serif; font-size: 10pt;}\n";
print "a {text-decoration: underline; color: #0033CC}\n";
print ".overskrift {font-family: Arial, Helvetica, sans-serif; font-size: 12pt; font-weight: bold;}\n";
print ".underskrift {font-family: Arial, Helvetica, sans-serif; font-size: 8pt;}\n";
print "a:hover {color: #2D76FF}\n";
print "a:active {color: #DEE1FE}\n";
print "a:visited {color: #003399}\n";
print "</style>\n";
print "<META HTTP-EQUIV=\"Cache-Control\" CONTENT=\"no-store\">\n";
print "<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n";
print "<title>movieboxen.dk</title>\n";
print "</head>\n";
print "<body background=\"http://www.movieboxen.dk/grafik/baggrund.gif\" bgcolor=\"#205396\">\n";
print "<div align=\"center\">\n";
print "  <table width=\"700\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n";
print "    <tr>\n";
print "      <td width=\"37\" height=\"106\" valign=\"top\"> <IMG SRC=\"http://www.movieboxen.dk/grafik/topvideovenstre.gif\" USEMAP=\"#topvideovenstre\" BORDER=0 WIDTH=37 HEIGHT=106 onMouseOver=\"window.status='Tilbage til forsiden'; return true\" onMouseOut=\"window.status=''; return true\"></td>\n";
print "      <td width=\"626\" valign=\"top\">\n";
print "        <table width=\"626\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n";
print "          <tr valign=\"top\">\n";
print "            <td colspan=4> <IMG SRC=\"http://www.movieboxen.dk/grafik/topvideohojre1.gif\" USEMAP=\"#topvideohojre1\" BORDER=0 WIDTH=97 HEIGHT=74><IMG SRC=\"http://www.movieboxen.dk/grafik/topvideohojre2.gif\" USEMAP=\"#topvideohojre2\" BORDER=0 WIDTH=214 HEIGHT=74><img src=\"http://www.movieboxen.dk/grafik/topvideohojre3.gif\" width=\"208\" height=\"74\"><img src=\"http://www.movieboxen.dk/grafik/topvideohojre4.gif\" width=\"17\" height=\"74\"><img src=\"http://www.movieboxen.dk/grafik/topvideohojre5.gif\" width=\"90\" height=\"74\"></td>\n";
print "          </tr>\n";
print "          <tr>\n";
print "            <td width=\"113\" bgcolor=\"#FFFFFF\"> <IMG SRC=\"http://www.movieboxen.dk/grafik/bundvideovenstre.gif\" USEMAP=\"#bundvideovenstre\" BORDER=0 WIDTH=113 HEIGHT=82></td>\n";
print "<td bgcolor=\"#FFFFFF\" width=\"249\" align=\"center\">\n";
print "<A HREF=\"http://www.movieboxen.dk/cgi_bin/adban/zone1.pl?banner=NonSSI;page=01\"><IMG SRC=\"http://www.movieboxen.dk/cgi_bin/adban/zone1.pl?page=01\" border=0></A>";
print "            </td>";
print "            <td bgcolor=\"#FFFFFF\" width=\"249\" align=\"center\"> ";
print "<A HREF=\"http://www.movieboxen.dk/cgi_bin/adban/zone2.pl?banner=NonSSI;page=01\"><IMG SRC=\"http://www.movieboxen.dk/cgi_bin/adban/zone2.pl?page=01\" border=0></A>";
print "            </td>";
print "            <td bgcolor=\"#FFFFFF\" valign=\"top\" align=\"right\"><img src=\"http://www.movieboxen.dk/grafik/videobundhojre.gif\" width=\"15\" height=\"82\"></td>";
print "          </tr>";
print "          <tr background=\"http://www.movieboxen.dk/grafik/rasterbaggrund.gif\"> ";
print "            <td colspan=4 height=\"27\" background=\"http://www.movieboxen.dk/grafik/rasterbaggrund.gif\"> ";
print "              <table width=\"626\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";
print "                <tr>     ";
print "                  <td height=\"27\" width=\"127\"> ";
print "                    <div align=\"center\"><a href=\"http://www.movieboxen.dk/nyheder.shtml\" onmouseover=\"imgAct('img1'), window.status='Nyheder'; return true\" onmouseout=\"imgInact('img1'), window.status=''; return true\"> ";
print "                      <img src=\"http://www.movieboxen.dk/grafik/nyheder.gif\" border=\"0\" name=\"img1\" width=\"94\" height=\"27\"></a></div>";
print "                  </td>";
print "                  <td height=\"27\" width=\"208\"> ";
print "                    <div align=\"center\"><a href=\"http://www.movieboxen.dk/naesteuge.shtml\" onmouseover=\"imgAct('img2'), window.status='Næste uges film'; return true\" onmouseout=\"imgInact('img2'), window.status=''; return true\"> ";
print "                      <img src=\"http://www.movieboxen.dk/grafik/naesteuge.gif\" border=\"0\" name=\"img2\"></a></div>";
print "                  </td>";
print "                  <td width=\"162\" height=\"27\"> ";
print "                    <div align=\"center\"><a href=\"http://www.movieboxen.dk/kalenderen.shtml\" onmouseover=\"imgAct('img4'), window.status='Kalenderen'; return true\" onmouseout=\"imgInact('img4'), window.status=''; return true\"> ";
print "                      <img src=\"http://www.movieboxen.dk/grafik/kalenderen.gif\" border=\"0\" name=\"img4\"></a></div>";
print "                  </td>";
print "                  <td width=\"129\" height=\"27\"> ";
print "                    <div align=\"center\"><a href=\"http://www.movieboxen.dk/arkivet.shtml\" onmouseover=\"imgAct('img5'), window.status='Tag et kig i arkivet'; return true\" onmouseout=\"imgInact('img5'), window.status=''; return true\"> ";
print "                      <img src=\"http://www.movieboxen.dk/grafik/arkivet.gif\" border=\"0\" name=\"img5\"></a></div>";
print "                  </td>";
print "                </tr>";
print "              </table>";
print "            </td>";
print "          </tr>";
print "        </table>";
print "      </td>";
print "      <td width=\"37\">";
print "      </td>";
print "    </tr>";
print "  </table>";
print "<!-- topslut --->";

print " <table width=\"700\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";
print "    <tr>";
print "      <td height=\"400\" width=\"37\">&nbsp;</td>";
print "      <td height=\"400\" width=\"626\" bgcolor=\"#FFFFFF\">";
foreach $File (@Files)
{
if ($File =~ m/.html$/)
  {
    $Caption = $File;
    $Text = '';
  open (FILE, "</hotel/movieboxen/WWW/arkiv/html/$File");
  while (<FILE>)
    {
      $Text .= $_;
    }
      close FILE;
    if ($Text =~ m/\<TITLE\>(.*?)\<\/TITLE\>/i) {$Caption = $1}
print "<A HREF=http://www.movieboxen.dk/arkiv/html/$File>$Caption</A><BR>\n";

  }
}
print "      </td>";
print "      <td height=\"400\" width=\"37\">&nbsp;</td>";
print "    </tr>";
print "  </table>";


print "<!-- bundstart --->";
print "  <table width=\"700\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";
print "    <tr> ";
print "      <td width=\"37\">&nbsp;</td>";
print "      <td width=\"626\" height=\"27\" background=\"http://www.movieboxen.dk/grafik/rasterbaggrund.gif\">";
print "        <table width=\"626\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";
print "          <tr>";
print "            <td width=\"132\"> ";
print "              <div align=\"center\"><a href=\"http://www.movieboxen.dk/kontaktos.shtml\" onmouseover=\"imgAct('img6'), window.status='Kontakt os'; return true\" onmouseout=\"imgInact('img6'), window.status=''; return true\"> ";
print "                <img src=\"http://www.movieboxen.dk/grafik/kontaktos.gif\" border=\"0\" name=\"img6\"></a></div>";
print "            </td>";
print "            <td width=\"201\"> ";
print "              <div align=\"center\"><a href=\"http://www.movieboxen.dk/ommovieboxen.shtml\" onmouseover=\"imgAct('img7'), window.status='Om movieboxen.dk'; return true\" onmouseout=\"imgInact('img7'), window.status=''; return true\"> ";
print "                <img src=\"http://www.movieboxen.dk/grafik/ommovieboxen.gif\" border=\"0\" name=\"img7\" width=\"183\" height=\"27\"></a></div>";
print "            </td>";
print "            <td width=\"84\"> ";
print "              <div align=\"center\"><a href=\"http://www.movieboxen.dk/links.shtml\" onmouseover=\"imgAct('img8'), window.status='Links'; return true\" onmouseout=\"imgInact('img8'), window.status=''; return true\"> ";
print "                <img src=\"http://www.movieboxen.dk/grafik/links.gif\" border=\"0\" name=\"img8\"></a></div>";
print "            </td>";
print "            <td width=\"195\">&nbsp;</td>";
print "            <td width=\"14\">&nbsp;</td>";
print "          </tr>";
print "        </table>";
print "      </td>";
print "      <td width=\"37\">&nbsp;</td>";
print "    </tr>";
print "    <tr>";
print "      <td width=\"37\">&nbsp;</td>";
print "      <td width=\"626\">";
print "        <table width=\"626\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";
print "          <tr>";
print "            <td width=\"15\" height=\"27\" valign=\"bottom\" align=\"left\" bgcolor=\"#FFFFFF\"><img src=\"http://www.movieboxen.dk/grafik/bundvenstre.gif\" width=\"15\" height=\"27\"></td>";
print "            <td bgcolor=\"#FFFFFF\" width=\"596\" height=\"27\" valign=\"bottom\"> ";
print "              <div align=\"right\"> <span class=\"underskrift\"><font size=-2> &copy;";
print "                movieboxen.dk 1999-2000</font></span></div>";
print "            </td>";
print "            <td width=\"15\" height=\"27\" bgcolor=\"#FFFFFF\"><img src=\"http://www.movieboxen.dk/grafik/bundhojre.gif\" width=\"15\" height=\"27\"></td>";
print "          </tr>";
print "        </table>";
print "      </td>";
print "      <td width=\"37\">&nbsp;</td>";
print "    </tr>";
print "  </table>";
print "</div>";
print "<MAP NAME=\"topvideovenstre\"> <AREA SHAPE=poly COORDS=\"36,27,10,36,5,45,37,100,37,27,36,27\" HREF=\"main.shtml\" onMouseOver=\"window.status='Tilbage til forsiden'; return true\" onMouseOut=\"window.status=''; return true\" alt=\"Tilbage til forsiden\" title=\"Tilbage til forsiden\"> ";
print "</MAP> <MAP NAME=\"topvideohojre1\"> <AREA SHAPE=poly COORDS=\"0,27,84,0,97,17,97,74,0,74,0,27\" HREF=\"main.shtml\" onMouseOver=\"window.status='Tilbage til forsiden'; return true\" onMouseOut=\"window.status=''; return true\" alt=\"Tilbage til forsiden\" title=\"Tilbage til forsiden\"> ";
print "</MAP> <MAP NAME=\"topvideohojre2\"> <AREA SHAPE=poly COORDS=\"0,15,27,55,0,74,0,15\" HREF=\"main.shtml\" onMouseOver=\"window.status='Tilbage til forsiden'; return true\" onMouseOut=\"window.status=''; return true\" alt=\"Tilbage til forsiden\" title=\"Tilbage til forsiden\"> ";
print "</MAP> <MAP NAME=\"bundvideovenstre\"> <AREA SHAPE=poly COORDS=\"95,0,14,49,0,24,0,0,95,0\" HREF=\"main.shtml\" onMouseOver=\"window.status='Tilbage til forsiden'; return true\" onMouseOut=\"window.status=''; return true\" alt=\"Tilbage til forsiden\" title=\"Tilbage til forsiden\"> ";
print "</MAP> ";
print "</body>";
print "</html>";
Avatar billede erikjacobsen Ekspert
29. januar 2000 - 12:50 #1
Det sidste er nemt: Du skriver blot

if ($File =~ m/\.html$/)

i stedet for

if ($File =~ m/.html$/)

Sortering? Jamen det kan Perl selv. Du skriver blot

  sort(@Files)

inden du bruger @Files i foreach-løkken.
Avatar billede erikjacobsen Ekspert
29. januar 2000 - 12:52 #2
Nå, mener du at den skal være sorteret efter titel? Ok, det er næsten
li'så nemt. Jeg vender tilbage efter jeg har været i byen...
Avatar billede Boddicker Seniormester
29. januar 2000 - 13:39 #3
Svaret til 2) dur ikke. Nu viser den ingenting. Jeg vil lige oplyse dig, at de andre filer, der ligger i skuffen også har .shtml-endelsen. Så det er altså helt specifikt index.shtml den ikke skal tage med. Alle andre skal det tage med! :)
Avatar billede erikjacobsen Ekspert
29. januar 2000 - 16:33 #4
2) er selvfølgelig upræcis (jeg har så svært ved at sige: forkert). Jeg mener:

foreach $File (sort(@Files))

Til 1) havde jeg misforstået. Der anbefaler jeg nu:

  if ($File =~ m/\.shtml$/ && $File ne 'index.shtml')

Er det rigtigt det er titlerne, og ikke filer, der skal sorteres? Sig bare til!
Avatar billede Boddicker Seniormester
29. januar 2000 - 22:36 #5
Okay, nu virker 2'eren - altså den med at udelukke index.shtml. Nu er det alfabetiseringen der ikke dutter. Koden ser nu sådan ud:
[SNIP]
print " <table width=\"700\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";
print "    <tr>";
print "      <td height=\"400\" width=\"37\">&nbsp;</td>";
print "      <td height=\"400\" width=\"626\" bgcolor=\"#FFFFFF\">";
foreach $File (sort(@Files))
{
if ($File =~ m/\.shtml$/ && $File ne 'index.shtml')
  {
    $Caption = $File;
    $Text = '';
  open (FILE, "</hotel/movieboxen/WWW/arkiv/html/$File");
  while (<FILE>)
    {
      $Text .= $_;
    }
      close FILE;
    if ($Text =~ m/\<TITLE\>(.*?)\<\/TITLE\>/i) {$Caption = $1}
print "<A HREF=http://www.movieboxen.dk/arkiv/html/$File>$Caption</A><BR>\n";

  }
}
print "      </td>";
print "      <td height=\"400\" width=\"37\">&nbsp;</td>";
print "    </tr>";
print "  </table>";
[SNIP]

Den skal alfabetiserer efter <titlen>
Avatar billede erikjacobsen Ekspert
30. januar 2000 - 00:50 #6
Nu kan du nøjes med: foreach $File (@Files))

Og i stedet for  print "<A HREF=http://www.movieboxen.dk/arkiv/html/$File>$Caption</A><BR>\n";
indsætter du:

  $titler{$Caption} = $File;

Lige efter de to afsluttende krølleparanteser i din gamle foreach laver du en ny:

  foreach $titel (sort(keys @titler)) {
    print "<A HREF=http://www.movieboxen.dk/arkiv/html/$titler{$titel}>$titel</A><BR>\n";
  }

Ikke afprøvet, men hvis du får problemer kan du jo spørge igen, eller emaile mig,
hehe, hvis du kan finde min emailadresse.....
Avatar billede Boddicker Seniormester
30. januar 2000 - 09:01 #7
Uha! Det kunne den slet ikke lide. Nu får jeg fejl i læssevis! Koden ser sådan her ud:

foreach $File (@Files))
{
if ($File =~ m/\.shtml$/ && $File ne 'index.shtml')
  {
    $Caption = $File;
    $Text = '';
  open (FILE, "</hotel/movieboxen/WWW/arkiv/html/$File");
  while (<FILE>)
    {
      $Text .= $_;
    }
      close FILE;
    if ($Text =~ m/\<TITLE\>(.*?)\<\/TITLE\>/i) {$Caption = $1}
$titler{$Caption} = $File;

  }
}
foreach $titel (sort(keys @titler)) {
    print "<A HREF=http://www.movieboxen.dk/arkiv/html/$titler{$titel}>$titel</A><BR>\n";
  }




Avatar billede erikjacobsen Ekspert
30. januar 2000 - 09:33 #8
Ok, ok. Vi prøver lige igen. Der er en højreparantes for meget, det skal være:

  foreach $File (@Files)

Et associativt array starter jo med %, så der skal stå:

  foreach $titel (sort(keys %titler)) {

Jeg TROR nok det var det, og jeg har denne gang haft det til at køre!
Avatar billede Boddicker Seniormester
30. januar 2000 - 10:19 #9
Buhuuuuuu! :) Nu skriver den slet ikke noget længere!!

Koden:

foreach $File (@Files)
{
if ($File =~ m/\.shtml$/ && $File ne 'index.shtml')
  {
    $Caption = $File;
    $Text = '';
  open (FILE, "</hotel/movieboxen/WWW/arkiv/html/$File");
  while (<FILE>)
    {
      $Text .= $_;
    }
      close FILE;
    if ($Text =~ m/\<TITLE\>(.*?)\<\/TITLE\>/i) {$Caption = $1}
$titel{$Caption} = $File;

  }
}
foreach $titel (sort(keys %titler)) {
    print "<A HREF=http://www.movieboxen.dk/arkiv/html/$titler{$titel}>$titel</A><BR>\n";
  }
Avatar billede erikjacobsen Ekspert
30. januar 2000 - 11:09 #10
Dette script har kørt på min maskine. Jeg har nok nogle andre stier,
og det står ikke i en tabel, men bortset fra det er det det samme.
Prøv det, prøv det. Nå, ja, der er en ekstra print af filnavnene for at
se hvad der sker. Den kan du bare fjerne.

opendir(D,'C:/programmer/wwwroot/ventures');

@Files = readdir(D);

closedir(D);

foreach $File (@Files) {
  print $File."\n";

  if ($File =~ m/\.htm*$/ && $File ne 'index.shtml') {
    $Text = "";
    open (FILE, "<C:/programmer/wwwroot/ventures/$File");
    while (<FILE>) {
      $Text .= $_;
    }
    close FILE;
    if ($Text =~ m/\<TITLE\>(.*?)\<\/TITLE\>/i) {$Caption = $1}
    $titler{$Caption} = $File;
  }
}
foreach $titel (sort(keys %titler)) {
  print "<A HREF=http://www.movieboxen.dk/arkiv/html/$titler{$titel}>$titel</A><BR>\n";
}
Avatar billede erikjacobsen Ekspert
30. januar 2000 - 11:11 #11
Og mine file hedder ikke .shtml, så du skal bare skrive det som du plejer.
Avatar billede Boddicker Seniormester
30. januar 2000 - 11:29 #12
A
Avatar billede Boddicker Seniormester
30. januar 2000 - 11:31 #13
Så dur det... bortset fra, den sætter æ, ø og å først og ikke sidst, som den burde. Men du har slidt bravt i det, så du får dine points! Så må jeg jo bare accepterer de forkerte æ, ø og å'er! :)
Avatar billede erikjacobsen Ekspert
30. januar 2000 - 13:22 #14
Hvis du har flere point (hehe...) kan jeg lave dig en sammenligningsfunktion, compare, som
blot skal indsættes i sorteringskaldet:

  foreach $titel (sort(compare,keys %titler)) { ....

som kan lave sorteringen efter dine ønsker, specielt tage hensyn til æ,ø,å. Som
den er nu er det den indbyggede, default, sorterig der anvendes.
Avatar billede Boddicker Seniormester
30. januar 2000 - 13:35 #15
Hehe... ja, nu kommer man jo ikke så frygtelig langt med 10 points, men om en 14-dage - 3 uger, når jeg har fået lidt points igen på kistebunden, vender jeg lige tilbage! :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 21/08/202611:03
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 21/08/202611:08
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
27/0916:43 Nomad Tracking Car Af fleknes i Apps til Android
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
White papers
Flere white papers »