arghbis salops de dauphins | ben avec un substr tiens!
Code :
- open (R, "tongrosfichier" );
- while (<R> )
- {
- chomp;
- $lignes .=$_;
- }
- $jegardesles250premierscaracteres = substr($lignes, 0, 250);
- $jegardeslafindugrosfichier = substr($lignes, 250, length($lignes));
- open (W, "restedugrofichier" );
- print W $jegardeslafindugrosfichier;
- [code]
- sinon, à la place de substr tu peux faire :
- [code]
- $i =length($ligne);
- $j = $i;
- while ($i > $j -250)
- {
- unshift (@tab, chop($lignes));
- }
- print W join ("", @tab);
|
et voilà
--edit-- la première est plus performante Message édité par arghbis le 07-05-2003 à 13:09:19
|