SED de Linux à Unix
Résolu/Fermé
phoenix1984
Messages postés
30
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
9 décembre 2011
-
1 févr. 2008 à 10:01
phoenix1984 Messages postés 30 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 9 décembre 2011 - 14 févr. 2008 à 15:11
phoenix1984 Messages postés 30 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 9 décembre 2011 - 14 févr. 2008 à 15:11
A voir également:
- SED de Linux à Unix
- Linux reader - Télécharger - Stockage
- Toutou linux - Télécharger - Systèmes d'exploitation
- Linux mint 32 bits - Télécharger - Systèmes d'exploitation
- Backtrack linux - Télécharger - Sécurité
- Linux live usb creator - Télécharger - Outils Internet
22 réponses
phoenix1984
Messages postés
30
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
9 décembre 2011
10 févr. 2008 à 23:08
10 févr. 2008 à 23:08
Merci !!! :D
c'est exactement ce qu'il me fallait !! je le test au boulot mercredi. là je l'ai testé chez moi mais sous linux ....
ca devrait passer aussi sur le serveur mais je me méfie avec HPUX ...
;)
merci beaucoup en tout cas !
c'est exactement ce qu'il me fallait !! je le test au boulot mercredi. là je l'ai testé chez moi mais sous linux ....
ca devrait passer aussi sur le serveur mais je me méfie avec HPUX ...
;)
merci beaucoup en tout cas !
phoenix1984
Messages postés
30
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
9 décembre 2011
14 févr. 2008 à 15:11
14 févr. 2008 à 15:11
Désolé de répondre si tard ...
j'ai utilisé cette solution sous HPUX et ca fonctionne tres bien :
#!/usr/bin/perl -i.orig
use strict;use warnings;
@ARGV = qw{../trash/clusterwares.xsl};
my $ok=q{<h3><b><IMG src="puce_verte.gif" align="absmiddle"></IMG> Instances</b></h3>};
#
while(<>){
s/^/$ok\n/ if $.==3;
print;
}
__END__
Merci encore pour votre aide précieuse et pour votre patience !!!
j'ai utilisé cette solution sous HPUX et ca fonctionne tres bien :
#!/usr/bin/perl -i.orig
use strict;use warnings;
@ARGV = qw{../trash/clusterwares.xsl};
my $ok=q{<h3><b><IMG src="puce_verte.gif" align="absmiddle"></IMG> Instances</b></h3>};
#
while(<>){
s/^/$ok\n/ if $.==3;
print;
}
__END__
Merci encore pour votre aide précieuse et pour votre patience !!!