Nie jesteś zalogowany.
Jeśli nie posiadasz konta, zarejestruj je już teraz! Pozwoli Ci ono w pełni korzystać z naszego serwisu. Spamerom dziękujemy!

Ogłoszenie

Prosimy o pomoc dla małej Julki — przekaż 1% podatku na Fundacji Dzieciom zdazyć z Pomocą.
Więcej informacji na dug.net.pl/pomagamy/.

#1  2013-07-10 22:29:17

  r3solved - Użytkownik

r3solved
Użytkownik
Zarejestrowany: 2013-03-23

Perl - dodawanie nowej wartości w każdej linii pliku tekstowego

Witajcie,
...zaczynam swoją przygodę z Perlem, na początku potrzebowałbym napisać skrypt, który:
- otwiera plik tekstowy
- prosi o wprowadzenie pierwszej wartosci
- prosi o wprowadzenie drugiej wartosci
- na poczatku kazdego wiersza dodaje : wartosc1 wartosc2 stara_linia tekstu
- zapisuje tak zmodyfikowany plik pod inną nazwą

bardzo proszę o sugestie oraz uwagi. Na chwilę obecną mam:

Kod:

#!C:\Perl64\bin\perl.exe

use strict;
use warnings;
  
open(FILE, '>>F:\perl\plikwejsciowy.txt') or die "Can't open plikwejsciowy.txt: $!";

while (<FILE>) {      
  chomp;
  print "test\n";
}

print FILE "wartosc1 wartosc2 ";
close (FILE);

Ostatnio edytowany przez r3solved (2013-07-10 22:29:58)

Offline

 

Stopka forum

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson
To nie jest tylko forum, to nasza mała ojczyzna ;-)