data

[tk000]

sciagam plik codziennie w formacie aktualnadata-nazwa_pliku
wiec próbuje podstawic aktualną datę do nazwy pliku ale zwraca błąd

use Date::Manip;
my $data = &UnixDate('now', '%Y-%m-%d');

system ('head -1 /home/outputs/$data-nazwa_pliku |awk -F \';\' \'{print $1";" $4";" $5}\'');

ale zwraca błąd... co trzeba zrobić? w jakieś nawiasy wziąć $data etc..?

[TQM]

system ('head ...

te cudzyslowy musza byc " a nie ' bo inaczej zmienna nie bedzie miala wartosci tylko plik nazywa sie '$data-nazwa-pliku'.

Prosta zasada:
- "$zmienna" - podstawia wartosc zmiennej $zmienna
- '$zmienna' - wyrazenie ma wartosc $zmienna