Re: Troll++

j'utilise meme pas de module spécial pour perl, c'est vraiment hyper basique mon bricolage..



du genre, un script shell:



#!/bin/sh

unset LANG

echo "fetching freshmeat data..."

rm announcements.txt 2> /dev/null

wget -q http://www.freshmeat.net/backend/announcements.txt(...(...))

tr "\'" " " < announcements.txt > text

rm announcements.txt

say "\`v3 $(date +Good\ Morning\ we\ are\ %A\ it\ is\ %H\ hour\ %M\ minutes)"

freshread.pl text



où freshread est un script perl qui a cette tronche:



#!/usr/bin/perl



if (!open (FICHIER,$ARGV[0])) { die "pas d'arguments"; }

`say '\`v2 Hi, I m Freshmeat headline reader'`;



while ($linebuf = <FICHIER>)

{

`say '\`v2 Next!'`;

print "\n--------\n";

$linebuf = <FICHIER>; print "Name: $linebuf";

`say '\`v2 Name: \`v1 $linebuf'`;

$linebuf = <FICHIER>; print "Version: $linebuf";

$linebuf = <FICHIER>; print "Date: $linebuf";

$linebuf = <FICHIER>; print "Author: $linebuf";

$linebuf = <FICHIER>; print "Category: $linebuf";

$linebuf = <FICHIER>; print "Description: $linebuf";

`say '\`v2 Description: \`v1 $linebuf'`;

for ($i=0;$i<5;$i++) { $linebuf = <FICHIER>; print "Url: $linebuf"; }

}

close (FICHIER);

`say '\`v3 Ok, This is the end of the file. Have a nice day!'`;





et ou say est la compile de:

int main (int argc,char **argv) { if (argc > 1) eciSpeakText (argv[1],1);}

(compilée sur -libmeci50)



C'est probablement du code bien dégeu, mais c'est fonctionnel...