Amusant de voir cette agressivité envers ce journal !
Cette personne arrive en disant "je veux faire qq chose" et il se retrouve avec une troupe de barbus qui lui expliquent qu'il ne faut rien faire.
Même si ça existe déjà, même si c'est proche de certaines choses, il a son idée et son courage pour essayer.
Je suis pro-deb mais je ne vais pas lui demander d'utiliser les .deb parce que j'aime ca ...
c'est un script pour le travail, non ?
Alors pas de mp3 !
sinon il y a un truc crade mais qui marche : #!/usr/bin/perl
my $nom='7845124512200904091025.mp3.gz.tar.pdf.paf';
my $no_dot=(split /\./,$nom)[0]; # recup le premier element du split
if($no_dot=~m/(\d{4})(\d{2})(\d{2})\d{4}$/){
print "Fichier : $nom\n";
print "Annee : $1\n";
print "Mois : $2\n";
print "Jour : $3\n";
}
En partant du principe que ton extension est faite de "." et de lettres :
#!/usr/bin/perl
my $nom='7845124512200904091025.pdf';
if($nom=~m/(\d{8})\d{4}[\.a-zA-Z]*$/){
print "$1\n";
}
Ma dernière tentative de "femmeoguidage" (juste avant d'acheter un GPS) :
Monsieur (au STOP) : et là ? je tourne à droite ou à gauche ?
Madame : comme tu veux ! de toute façon on ne doit pas être très loin !
Monsieur : ...
je ne sais pas d'ou vient cette repuation ...
j'ai pondu plusieurs dizaines de milliers de lignes de code en Perl et souvent j'arrive a les relire et parfois meme a comprendre ce que ca fait !
serieusement : tu peux coder comme un goret dans tous les langages mais personne ne t'y oblige.
Le gros avantage de Perl, c'est sa souplesse et ses modules.
Un petit A++ pour la route (c'est de moi et ca se trouve sur http://paris.mongueurs.net/aplusplus.html ) ? Récursions chaînées
$;=sub{
sub _{
$_[2]=substr($_[0],length($_[0])-1,1) + $_[1];
if (length($_[2])>1 or length($_[0])>1){
$_[2]= _(substr($_[0],0,length($_[0])-1),length($_[2])>1?substr($_[2],0,1):0)
. substr($_[2],length($_[2])-1,1);
}
return ($_[2]);
}
$A=_($_[0],1);
};($A)->$;;
C'est sympa Perl :
- simple à apprendre (bcp d'exemples, cours, ...)
- multi-plateforme
- énormément de modules (http://search.cpan.org ) : OpenOffice::OODoc, Spreadsheet::WriteExcel, ...
- et surtout c'est du Larry inside
Bonjour,
je ne connais pas ce kit, mais vu de loin (meme de tres loin), il emule un port serie sur un usb.
apres avoir branche ta carte sur le port usb de ton linux, il faut faire un "dmesg" pour voir si il a attache un nouveau port serie :
[603479.186521] usb 1-2: new full speed USB device using ohci_hcd and address 6
[603479.399300] usb 1-2: configuration #1 chosen from 1 choice
[603479.402586] usb 1-2: New USB device found, idVendor=067b, idProduct=2303
[603479.402598] usb 1-2: New USB device strings: Mfr=1, Product=2, SerialNumber=0
[603479.402603] usb 1-2: Product: USB-Serial Controller
[603479.402606] usb 1-2: Manufacturer: Prolific Technology Inc.
[603479.727185] usbcore: registered new interface driver usbserial
[603479.727221] usbserial: USB Serial support registered for generic
[603479.727270] usbcore: registered new interface driver usbserial_generic
[603479.727273] usbserial: USB Serial Driver core
[603479.740328] usbserial: USB Serial support registered for pl2303
[603479.740383] pl2303 1-2:1.0: pl2303 converter detected
[603479.772262] usb 1-2: pl2303 converter now attached to ttyUSB0
[603479.772303] usbcore: registered new interface driver pl2303
[603479.772308] pl2303: Prolific PL2303 USB to serial adaptor driver
dans ce cas, il ne reste plus qu'a ouvrir un minicom (par exemple) sur le port /dev/ttyUSB0
Je ne connais pas JDBC ( je bosse avec des DBI Perl).
Mais il existe une fonctionnalite Postgresql : INSERT INTO ... RETERNING ...
SI ton driver te permet de faire des fetch (ce que je suppose), ca doit fonctionner !
# re :
Posté par arthurr (site web personnel) . En réponse au message Problème installation PLpgsql avec PostgreSQL. Évalué à 3.
CREATE FUNCTION prix_reduit(numeric) RETURNS numeric AS $$
DECLARE
prix ALIAS FOR $1;
BEGIN
RETURN prix * 0.75;
END;
$$ LANGUAGE plpgsql;
fonctionne tres bien
bonne journee
# Amusant ...
Posté par arthurr (site web personnel) . En réponse au journal Aider au développement d'un nouveau gestionnaire de paquets. Évalué à 10.
Cette personne arrive en disant "je veux faire qq chose" et il se retrouve avec une troupe de barbus qui lui expliquent qu'il ne faut rien faire.
Même si ça existe déjà, même si c'est proche de certaines choses, il a son idée et son courage pour essayer.
Je suis pro-deb mais je ne vais pas lui demander d'utiliser les .deb parce que j'aime ca ...
mes 2 centimes (de francs) à moi !
[^] # Re: Parser une variable en Perl
Posté par arthurr (site web personnel) . En réponse au message Parser une variable en Perl. Évalué à 2.
#!/usr/bin/perl
my $nom='7845124512200904091025.pdf';
if($nom=~m/(\d{4})(\d{2})(\d{2})\d{4}[\.a-zA-Z]*$/){
print "Fichier : $nom $1 $2\n";
}
c'est juste un print ... le $1 est la premiere expression "matchee" avec les parenthese (\d{4}), $2 la seconde, ...
[^] # Re: Parser une variable en Perl
Posté par arthurr (site web personnel) . En réponse au message Parser une variable en Perl. Évalué à 1.
Alors pas de mp3 !
sinon il y a un truc crade mais qui marche :
#!/usr/bin/perl
my $nom='7845124512200904091025.mp3.gz.tar.pdf.paf';
my $no_dot=(split /\./,$nom)[0]; # recup le premier element du split
if($no_dot=~m/(\d{4})(\d{2})(\d{2})\d{4}$/){
print "Fichier : $nom\n";
print "Annee : $1\n";
print "Mois : $2\n";
print "Jour : $3\n";
}
[^] # Re: Parser une variable en Perl
Posté par arthurr (site web personnel) . En réponse au message Parser une variable en Perl. Évalué à 1.
#!/usr/bin/perl
my $nom='7845124512200904091025.pdf';
if($nom=~m/(\d{4})(\d{2})(\d{2})\d{4}[\.a-zA-Z]*$/){
print "Fichier : $nom\n";
print "Annee : $1\n";
print "Mois : $2\n";
print "Jour : $3\n";
}
[^] # Re: Parser une variable en Perl
Posté par arthurr (site web personnel) . En réponse au message Parser une variable en Perl. Évalué à 3.
#!/usr/bin/perl
my $nom='7845124512200904091025.pdf';
if($nom=~m/(\d{8})\d{4}[\.a-zA-Z]*$/){
print "$1\n";
}
et c'est gratuit ;)
# Miam perl !
Posté par arthurr (site web personnel) . En réponse au message Parser une variable en Perl. Évalué à 4.
#!/usr/bin/perl
my $nom='7845124512200904091025.pdf';
if($nom=~m/(\d{8})\d{4}\.pdf$/){
print "$1\n";
}
[^] # Re: Raté
Posté par arthurr (site web personnel) . En réponse au journal TomTom et MS : suite et fin. Évalué à 7.
Monsieur (au STOP) : et là ? je tourne à droite ou à gauche ?
Madame : comme tu veux ! de toute façon on ne doit pas être très loin !
Monsieur : ...
[^] # Re: Commande "pgrep"
Posté par arthurr (site web personnel) . En réponse au message pid d'un processus. Évalué à 2.
[^] # Re: Perl ?
Posté par arthurr (site web personnel) . En réponse au journal Quel langage pour un non informaticien?. Évalué à 1.
j'ai pondu plusieurs dizaines de milliers de lignes de code en Perl et souvent j'arrive a les relire et parfois meme a comprendre ce que ca fait !
serieusement : tu peux coder comme un goret dans tous les langages mais personne ne t'y oblige.
Le gros avantage de Perl, c'est sa souplesse et ses modules.
Un petit A++ pour la route (c'est de moi et ca se trouve sur http://paris.mongueurs.net/aplusplus.html ) ?
Récursions chaînées
$;=sub{
sub _{
$_[2]=substr($_[0],length($_[0])-1,1) + $_[1];
if (length($_[2])>1 or length($_[0])>1){
$_[2]= _(substr($_[0],0,length($_[0])-1),length($_[2])>1?substr($_[2],0,1):0)
. substr($_[2],length($_[2])-1,1);
}
return ($_[2]);
}
$A=_($_[0],1);
};($A)->$;;
# Perl ?
Posté par arthurr (site web personnel) . En réponse au journal Quel langage pour un non informaticien?. Évalué à 2.
- simple à apprendre (bcp d'exemples, cours, ...)
- multi-plateforme
- énormément de modules (http://search.cpan.org ) : OpenOffice::OODoc, Spreadsheet::WriteExcel, ...
- et surtout c'est du Larry inside
# over a virtual serial port ...
Posté par arthurr (site web personnel) . En réponse au message Problem avec la connection USB avec PC sous linux !! !. Évalué à 2.
je ne connais pas ce kit, mais vu de loin (meme de tres loin), il emule un port serie sur un usb.
apres avoir branche ta carte sur le port usb de ton linux, il faut faire un "dmesg" pour voir si il a attache un nouveau port serie :
[603479.186521] usb 1-2: new full speed USB device using ohci_hcd and address 6
[603479.399300] usb 1-2: configuration #1 chosen from 1 choice
[603479.402586] usb 1-2: New USB device found, idVendor=067b, idProduct=2303
[603479.402598] usb 1-2: New USB device strings: Mfr=1, Product=2, SerialNumber=0
[603479.402603] usb 1-2: Product: USB-Serial Controller
[603479.402606] usb 1-2: Manufacturer: Prolific Technology Inc.
[603479.727185] usbcore: registered new interface driver usbserial
[603479.727221] usbserial: USB Serial support registered for generic
[603479.727270] usbcore: registered new interface driver usbserial_generic
[603479.727273] usbserial: USB Serial Driver core
[603479.740328] usbserial: USB Serial support registered for pl2303
[603479.740383] pl2303 1-2:1.0: pl2303 converter detected
[603479.772262] usb 1-2: pl2303 converter now attached to ttyUSB0
[603479.772303] usbcore: registered new interface driver pl2303
[603479.772308] pl2303: Prolific PL2303 USB to serial adaptor driver
dans ce cas, il ne reste plus qu'a ouvrir un minicom (par exemple) sur le port /dev/ttyUSB0
[^] # Re: Pologne
Posté par arthurr (site web personnel) . En réponse au journal Nom de nos machines. Évalué à 4.
[^] # Re: Moi aussi !
Posté par arthurr (site web personnel) . En réponse au message Réinstaller les fichiers de configuration par defaut d'un paquet. Évalué à 3.
mais il te faut 5 fruits et (ou?) legumes par jour !
# heu ...
Posté par arthurr (site web personnel) . En réponse au message Changer une IP grace a l'adresse MAC. Évalué à 4.
tu peux demander a un serveur DHCP d'affecter une adresse IP suivant l'adr MAC.
ou alors je n'ai pas compris la question ...
# pareil
Posté par arthurr (site web personnel) . En réponse au message billet d'humeur CONTRE linux. Évalué à 9.
Je suis de bonne humeur : je laisse le troll à un autre :)
[^] # Re: LA solution
Posté par arthurr (site web personnel) . En réponse au message aidez moi svp programmation shell. Évalué à 6.
read filename
à remplacer par
read filename if possible true or false por favor
c'est pour etre compatible avec bash 1.007.
A part cette petite faiblesse, je trouve ton code propre et fonctionnel !
je te plussois !
# Prompt ?
Posté par arthurr (site web personnel) . En réponse au message horloge au moment du lancement d'une commande. Évalué à 4.
exemple :
PS1="\u@\h \W -- \t> "
# pgbench
Posté par arthurr (site web personnel) . En réponse au message Bench PostgreSQL. Évalué à 2.
postgresql-8.3.0/contrib/pgbench
La doc (en FR) :
http://docs.postgresqlfr.org/8.3/pgbench.html
Bon WE
# Postgresql
Posté par arthurr (site web personnel) . En réponse à la dépêche Poisson d'avril de 2008. Évalué à 4.
[ANNOUNCE] == Postgres Weekly News - April 01 2008 ==
== Postgres Weekly News - April 01 2008 ==
The PostgreSQL project has ended. Thanks to the world-wide community
for participating.
---------------------------(end of broadcast)---------------------------
-To unsubscribe from this list, send an email to:
pgsql-announce-unsubscribe@postgresql.org
[^] # Re: PostgreSQL oui mais pas tout de suite
Posté par arthurr (site web personnel) . En réponse à la dépêche Sortie de PostgreSQL 8.3. Évalué à 2.
Mais il existe une fonctionnalite Postgresql :
INSERT INTO ... RETERNING ...
SI ton driver te permet de faire des fetch (ce que je suppose), ca doit fonctionner !
le lien vers la doc :
http://docs.postgresqlfr.org/8.3/sql-insert.html
# Le meme avec moins de texte
Posté par arthurr (site web personnel) . En réponse au journal Tableau blanc interactif "Low Cost". Évalué à 1.
cordialement
# Acer
Posté par arthurr (site web personnel) . En réponse au journal Achat d'un PC sans OS ou sous Linux. Évalué à 1.
Ca marche bien pour ce que j'en fait (presque rien!).
# ANSIColor
Posté par arthurr (site web personnel) . En réponse au message Coloriser les caractères d'un résultat. Évalué à 2.
[^] # Re: et du côté du TO7
Posté par arthurr (site web personnel) . En réponse au journal Le Monde baisse encore son niveau.... Évalué à 3.