Dotaz: Prejmenovani pomoci PERLu

[Flip]

Ahoj, nejak mi to nejde, co delam spatne?

#!/usr/bin/perl
print "\n";
($sek,$min,$hod,$den,$mes,$rok) = localtime(time);
$rok += 1900;
$mes += 1;
$date ="$rok";
print "$date";
print "\n";

  if ($mes < 10){ $date = "$date-0$mes";
  }else{ $date = "$date-$mes"; }
print "$date";
print "\n";

  if ($den < 10){ $date = "$date-0$den";
  }else{ $date = "$date-$den"; }
print "$date";
print "\n";

  if ($hod < 10){ $date = "$date-0$hod";
  }else{ $date = "$date-$hod"; }
print "$date";
print "\n";

  if ($min < 10){ $date = "$date-0$min";
  }else{ $date = "$date-$min"; }

print "$date";
print "\n";
$sjmeno = "/home/xxx/osms.txt";
$njmeno = "/home/xxx/osms$date.txt";
print "$sjmeno $njmeno";
print "\n";
rename($sjmeno,$njmeno);
print "\n";

Odpovědi

[Ja.]

Jestli ti to nejde spustit, tak to asi bude tim, ze mas napsanu cestu interpretu a print na jednom radku(predpokladam, ale ze jsi jenom blbe zformatoval tento text).

Musis mit:
#!/usr/bin/perl
print "\n\n\n\n\n\n";

Jinak to funguje.

Pokud to neprejmenovava ten soubor, koukni na jeho vlastnika a prava.
PS: a nauc se klast otazky...za tuhle bych te...;)

[Ja.]

uz to nekdo predelal...diky:)

[Flip]

Omlouvam se za formatovani.

Scrip funfuje ale neprejmenovava. Prava jsou OK.

[Michal Vyskočil]

Ahoj, na zdrojáky příště použij tag pre. No a popis chyby stylem "nějak mi to nejde" ... to si koleduje o odpověď ve stylu křišťálové koule. Zkus trochu blíže popsat svůj problém.

OT: Perl neznám, ale nejde tam napsat něco jako print "$date\n";?

[barmey]

hmm ... len tak bez testovania, skus spustit nasledovny skript

#!/usr/bin/perl

use POSIX qw( strftime );

my $date = strftime ('%Y-%m-%d-%H-%M', localtime);

sjmeno = "/home/xxx/osms.txt";
$njmeno = "/home/xxx/osms$date.txt";

rename($sjmeno,$njmeno) or die "Nepodarilo sa: $!\n";

[Flip]

Děkuji, takhle to je OK.

Patrně neco špatně nastaveno v localtime, ale to sem uz nepatri.

#!/usr/bin/perl

use POSIX qw( strftime );

my $date = strftime ('%Y%m%d%H%M%s', localtime);

$sjmeno = "/home/xxx/osms.txt";
$njmeno = "/home/xxx/osms$date.txt";

rename($sjmeno,$njmeno) or die "Nepodarilo sa: $!\n";