Perl vraagje

[Slagroom]

Ik ben bezig met een soort van shopping achtig veiling systeem te maken. Er worden hier veel verschillende e-mailtjes verstuurd en daarom had ik hier voor in php een functie geschreven. Nu wil ik ook een cron job gaan maken die ik schrijf in perl. Nu ben ik nog niet zo bekend in perl maar omdat de inhoud van de mailtjes vaak gewijzigd wordt moeten de mailtjes wel eenvoudig te veranderen zijn. De php functie leest de mailtjes uit een tekst bestand. Deze mailtje bevatten variablenen die je zelf kunt aan maken door ze in de array te zetten die je als argument geeft bij de functie makeMail. Nu was mijn vraag, hoe schijf ik zo'n functie in perl. Ik vraag niet om alles voor te kauwen maar om een zetje in de goede richting. En ik heb gezocht... maar ik zit mer ereg_replace en de file functies...

Dit is email.txt:

code:

Hallo [naam],

Dit zijn jouw adres gegevens:
[adres]
[postcode] [plaats]

Dit is het php gedeelte:

PHP:

<?
function MakeMail($what) {
    global $siteroot;
    $fp = fopen($rootdir.'conf/'.$what['what'], 'r');
    while($line = fgets($fp, 4096))
        $message .= $line;
    foreach($what AS $a => $b)
        $message = eregi_replace("\\[$a\]", $b, $message);
    return $message;
}

$email_arr = array();
$email_arr['naam'] = 'Slagroom';
$email_arr['adres'] = 'Kalferlaan 2';
$email_arr['postcode'] = '6232 HH';
$email_arr['plaats'] = 'Blaat';
$email_arr['what'] = 'email.txt';
$overboden_message = MakeMail($email_arr);
mail($email_over, 'Uw bod op '.$out_get['naam'].' is overboden', $overboden_message, "From: $beheerder_email <Dressingroom>");
?>

Kan iemand mij wegwijs maken?

[Verwijderd]

Waarom heet dit topic Perl vraag, als het eigenlijk een PHP vraag is?

[Verwijderd]

Hij wil dit omzetten naar iets in perl !?

[Verwijderd]

Verwijderd schreef op 27 oktober 2002 @ 19:17:
Hij wil dit omzetten naar iets in perl !?

Doh! Fout gelezen

[Slagroom]

Maar weten jullie hoe ik daarmee werk?

[Slagroom]

Ik zit nu de perldocs door te lezen... maar ik snap de replaces niet... hoe maak ik nou deze functie in php:

PHP:

foreach($what AS $a => $b)
    $message = eregi_replace("\\[$a\]", $b, $message);

alstublieft?

[maartenba]

al effe geleden maar i'll give it a go:

code:

$message =~ s/\\[$a\]/$b/g;

[Slagroom]

maartenba schreef op 27 oktober 2002 @ 21:33:
al effe geleden maar i'll give it a go:

code:

$message =~ s/\\[$a\]/$b/g;

Hee, vet! Dus met =~ geef ik een regexp aan? Zo makkelijk? Ik zal ook even de de perldocs erbij doornemen. Leuk dat Perl!

[maartenba]

Yep is inderdaad gigantisch
Ook in een if:

code:

if ($var =~/\n/) {
  print "Newline found !";
}

En dan alle regexp stuff zoals g,i, ... (ignore case etc.) moet je maar effe op Googlen

[muba]

Slagroom schreef op 27 oktober 2002 @ 22:58:
[...]

Hee, vet! Dus met =~ geef ik een regexp aan? Zo makkelijk? Ik zal ook even de de perldocs erbij doornemen. Leuk dat Perl!

welcome to perl!

[Slagroom]

Ik heb nu dit script:

Perl:

#!/usr/bin/perl

use DBI;

$error_occured = 0;

$db_host = 'localhost';
$db_user = '******';
$db_pass = '******';
$db_name = 'blaat';
$pasmail = 'blaat';
$onderwerp = 'Gefeliciteerd met uw product!';

$sendmail = '/usr/sbin/sendmail';

($sec,$min,$hour,$day,$month,$year,$day2) = (localtime(time))[0,1,2,3,4,5,6];
$year += "1900";

$month++;

open (FH ,">> /home/sites/********/perl/log/$month-$year.log");

$dbh = DBI->connect('dbi:mysql:'.$db_name.':'.$db_host,$db_user,$db_pass) or Ins_Log($dbh->errstr,'error');

sub Ins_Log {

    my ($error,$type) = @_;

    $date = `/bin/date`;
    chop($date);

    print FH $date." : ".$error."\n";

    if($type eq 'error') {
        $error_occured = 1;
    }

}

$datum = "$year-$month-$day $hour:$min:$sec";

$sth = $dbh->prepare("SELECT producten.*, categorieen.*, merken.*, assortiment.* FROM producten "
            ."LEFT JOIN categorieen ON producten.cat_id = categorieen.cat_id "
            ."LEFT JOIN merken ON merken.merk_id = categorieen.merk_id "
            ."LEFT JOIN assortiment ON assortiment.as_id = categorieen.as_id "
            ."WHERE producten.open = '1'");
$sth->execute or Ins_Log($sth->errstr,'error');

while (@data = $sth->fetchrow_array()) {
    print $data[0]."\n".$data[1]."\n".$data[2]."\n--------------------\n";
}

close FH;

Maar die kan ik alleen uitvoeren met dit commando:
/usr/bin/perl ./script.pl

De foutmelding is dit:
[ikke perl]# ./script.pl
sh: ./script.pl: No such file or directory
[ikke perl]#

terwijl er bovenin duidelijk #!/usr/bin/perl staat en ik het script gechmod heb... hoe kan dit?

[Verwijderd]

Staat perl wel in /usr/bin?

Uhm....

[Slagroom]

Verwijderd schreef op 29 oktober 2002 @ 14:28:
Staat perl wel in /usr/bin?

Uhm....

Ja

[skiwi]

Uhm, ik neem aan dat je een chmod over je script.pl hebt gedraaid zodat het executable is?

edit:
skiwi is blind: ik het script gechmod heb...

[Slagroom]

skiwi schreef op 29 oktober 2002 @ 14:33:
Uhm, ik neem aan dat je een chmod over je script.pl hebt gedraaid zodat het executable is?

Slagroom schreef op 29 oktober 2002 @ 14:23:
terwijl er bovenin duidelijk #!/usr/bin/perl staat en ik het script gechmod heb... hoe kan dit?

...yep, heb ik gedaan
-rwxr-xr-x 1 ikke users 1343 Oct 29 13:59 script.pl

[skiwi]

En als je eens een lekker simpele 'hallo wereld' applicatie bouwt?

code:

#!/usr/bin/perl
printf "Hallo Wereld\n";

[odysseus]

Staat die #!/usr/bin/perl wel op de *eerste* regel? De shell vindt het niet leuk als hij daar niets vindt .

maartenba schreef op 28 oktober 2002 @ 10:15:
Yep is inderdaad gigantisch
Ook in een if:

code:

if ($var =~/\n/) {
  print "Newline found !";
}

En dan alle regexp stuff zoals g,i, ... (ignore case etc.) moet je maar effe op Googlen

Nog leuker:

code:

print "Newline found!" if ($var =~ /\n/);

[Sjaaky]

Je zit zeker te editten in windows?
Dan staan je regeleindes verkeerd en moet je die omzetten naar Unix regeleindes, de meeste behoorlijke editors kunnen dat wel.

[Slagroom]

odysseus schreef op 29 oktober 2002 @ 15:29:
Staat die #!/usr/bin/perl wel op de *eerste* regel? De shell vindt het niet leuk als hij daar niets vindt .


[...]

Nog leuker:

code:

print "Newline found!" if ($var =~ /\n/);

Yep, staat op de eerste regel...

[Slagroom]

Sjaaky schreef op 29 oktober 2002 @ 15:42:
Je zit zeker te editten in windows?
Dan staan je regeleindes verkeerd en moet je die omzetten naar Unix regeleindes, de meeste behoorlijke editors kunnen dat wel.

Heej! Dit was het! Bedankt man!

[Slagroom]

Nu had ik ook nog een vraagje over perl icm mysql. Hoe kan ik (zonder gebruik te maken van een loop), gegevens uit een row trekken dat een result is van een query waar zowieso maar één row uitkomt?

zoiets als:

PHP:

$res = mysql_query("SELECT * FROM table LIMIT 0,1");
$field1 = mysql_result($res, 0, 'field1');

[Slagroom]

even een schopje voor de bovenste vraag. sorry...

[_DeWie_]

USE DBI;

[Slagroom]

_DeWie_ schreef op 29 oktober 2002 @ 17:40:
USE DBI;

die gebruik ik al... maar is er een functie in DBI die een soortgelijke uitwerking heeft?

[odysseus]

Misschien iets als het volgende, hoewel dat niet echt netjes is?

code:

($mijn_var, @dump) = $sth->fetchrow_array;

Netter is de volgende methode:

code:

$ary_ref  = $sth->fetchall_arrayref( $slice, $max_rows );

[maartenba]

Check http://search.cpan.org effe, daar staan alle modules en docs...

[Slagroom]

odysseus schreef op 29 oktober 2002 @ 18:10:
Misschien iets als het volgende, hoewel dat niet echt netjes is?

code:

($mijn_var, @dump) = $sth->fetchrow_array;

Netter is de volgende methode:

code:

$ary_ref  = $sth->fetchall_arrayref( $slice, $max_rows );

Hoe stop ik hiermee dan de waarde uit het veld 'naam' o.i.d. in de variabele $naam?

[odysseus]

Als je het kolomnummer niet weet dan kun je beter met een hashref werken. Als je niet weet hoe je een item in een referentie kunt aanspreken, dan moet je even de manpages van perlref en perlreftut lezen .

[Slagroom]

odysseus schreef op 29 oktober 2002 @ 20:24:
Als je het kolomnummer niet weet dan kun je beter met een hashref werken. Als je niet weet hoe je een item in een referentie kunt aanspreken, dan moet je even de manpages van perlref en perlreftut lezen .

Ik heb hem nu, maar wat houdt die mijn var nou eigenlijk in?

[odysseus]

Je bedoelt bij mijn eerste voorbeeld? Dat vist gewoon de eerste waarde uit de eerste teruggegeven rij uit de query en gooit de rest in een array met de naam @dump.

[Red Sonja]

K kom er een beetje laat mee maar, ik heb erg veel aan deze link gehad:
http://www.perldoc.com/cpan/Msql.html