Text 12396, 109 rader
Skriven 2001-08-01 01:40:46 av Johan Svensson (2:206/112.3)
  Kommentar till text 12395 av Simon Josefsson (2:205/454.216)
Ärende: Re: cgi
===============

Nu är vi OT. Förslag på bättre möte?

 JS>  OK, jag kan göra en struktur och läsa in den mha file()/regexps,
 JS> men det blir exakt samma resultat som ovan.
 SJ> Inte för den som ska underhålla skiten.

 That would be me, yes? Till att börja med så skulle jag inte använda Perl
alls,
 utan PHP/SQL.

 JS>  ...och att använda SQL för det känns som extrem overkill. :-)
 JS> (iaf om datan inte ska användas till andra prylar också.)

 SJ> att se vilken av metoderna som är bäst om ett nytt användningsområde
 SJ> dyker upp. Om man inte tänker efter före får man arbeta efteråt.

 Jo. Men ursprungsfrågan var ju hur man gjorde detta medelst Perl. Och detta
var
 min bästa metod.

 SJ> Ponera t.ex. att din site växer och du får besökare från halva
 SJ> världen.

 Om jag ska lokalisera för halva världen så lär svenska namnsdagar knappast
vara
 problemet jag svär mest över. Och, som tidigare sagt, är jag ute efter
 flexibilitet så föredrar jag PHP/SQL.

 SJ> Fortsätter du och hårdkodar hela världens namnsdagar i ditt
 SJ> perl-script, eller lagrar du dem i en databas (en textfil duger gott
 SJ> som databas)?

Alternativ A: lagras i namnsdagar.se.pl

=== BEGIN namnsdagar.se.pl ===

// Namnsdagar i januari
my $namnsdag[0] = array(
        'Adam',         // 1 januari
        'Bertil',       // 2 januari
        'Caesar',       // 3 januari
);

// Namnsdagar i februari
my $namnsdag[1] = array(
        'Xerxes',       // 1 februari
        'Yster',        // 2 februari
        'Zalaam',       // 3 februari
);

=== END namnsdagar.se.pl ===

Alternativ 2: flat CSV-databas lagrad i namnsdagar.se.csv

BEGIN namnsdagar.se.csv ===

1-1,Adam
1-2,Bertil
1-3,Caesar
2-1,Xerxes
2-2,Yster
2-3,Zalaam

=== END namnsdagar.se.csv ===

Såhär anropar jag alternativ A för att få det körklart för hantering av Perl:

require "namnsdagar.$countrycode.pl";

Såhär anropar jag alternativ B:

open (FILEPOINTER, "<namnsdagar.$countrycode.csv") or die 'Unable to open
file';
  while (<FILEPOINTER>) {
    ($namnsdag_datum, $namnsdag_namn) = split(',', $_);
    <mera kod för att sortera arrayer>
  }
close FILEPOINTER;

Och bara för att visa hur l33t jag är på krångliga array-anrop:

require 'ctime.pl';
@current_date = split(/\s+/, ctime(mktime()));
print "Dagens namn: {$namnsdag[($current_date[1]-1)][($current_date[0]-1)]}";

note to self: få Håkan att implementera kod-highlight i Mypoint :-)

...fast nu kommer säkert någon att knäppa mig på näsan och säga att det finns
en färdig PPM för att hantera CSV.

Gillar man inte att det krävs en fil för varje språk behöver man bara lägga
till en dimension i arrayerna respektive ett fält för landet i CSV'n.

Min poäng är att jag inte behöver snickra ihop ett specifikt filformat att
lagra namnen i (med tillhörande kod för att läsa det) om jag skriver det som
ren Perl-kod. Och själv anser jag inte detta vara "hårdkodat" eftersom Perl är
ett interpreterande språk (vilket givetvis är öppet för diskussion).

Min praxis vad det gäller Perl är att alltid separera data från koden. Saker
som inställningar för mina scripts, lokalisering osv sparar jag som
Perl-arrays/strängar. När min online-dagbok använde Perl, och det var allt jag
hade tillgång till, sparade jag texterna mha CSV.

Numera gör jag däremot allting i PHP, varpå jag så gott som alltid lagrar
större mängder data medelst SQL.

--- MyPoint 1.25x
 * Origin: Music for a paranormal life (2:206/112.3)