Új hozzászólás Aktív témák

• #46 Dumas csendes tag

  Új Válasz 2012-08-23 08:06:12 #46

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Dumas

  csendes tag

  Sziasztok!

  Egy olyan problémám lenne, hogy per-lben kilistázok pár dolgot egy fájlba. Termék kódját és a termék elkészülésének dátumát. Jelenleg a termék kódja szerint rakja sorba őket. Őszinte leszek, nem igazán értek a perl-hez. A kérdésem az lenne, hogy, hogy tudnám megoldani, hogy dátum szerint rakja sorba a termékeket?
  Tehát most úgy van, hogy mondjuk A-termék: 10:00 B-termék: 8:00 C-termék: 12:00.
  Helyette kéne úgy, hogy: B-termék: 8:00 A-termék:10:00 C-termék:12:00.

  Előre is köszönöm a választ annak aki esetleg tud segíteni benne

• #48 Dumas csendes tag

  Új Válasz 2012-08-24 11:59:58 #48

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Dumas

  csendes tag

  Köszi szépen, ez alapján megpróbálkozok vele , de igen, kicsit pontatlan voltam a leírásnál. Mert ráadásul az adatokat is máshonnan nyerem ki

  Write_log("script started");
  $mappres=MappNetSrc($netpath);
  Write_log("mapping $netpath");
  if($mappres==1)
  {
  my $name_date= get_timestamp4();
  if(!(-d $netpath))
  {
  Write_log("mapping source error $_[0]");
  }
  else
  {
  Write_log("mapping source $_[0] is mapped succesfully");
  
  if((opendir SO, $sourcedir) ==1)
  {
  Write_log("$sourcedir has been opened");
  $today = get_timestamp3();
  
  open out, ">", $lstfiledir.$name_date.'_'.$cell.'.lst' or die $!;
  print out "Barkod;Ido\n";
  while ($file = readdir(SO))
  {
  if ($file ne "." and $file ne "..")
  {
  $fidate=get_creation_time($sourcedir."\\$file");
  if ($fidate gt get_timestamp())
  {
  Write_log("$sourcedir"."\\$file"." creation time is:".$fidate);
  open input, "<","$sourcedir"."\\$file" or die $!;
  #my $lines = <input>;
  while (<input>)
  {
  #print $_;
  
  $date_from_file =substr($_,0,10);
  #print $today.'-'.$date_from_file.'';
  if ($today eq $date_from_file)
  {
  #print $_;
  my $out_date =substr($_,11,8);
  my $out_ttnr =substr($_,24,6);
  print out $out_date .';'.$out_ttnr."\n";

  Itt a végén jön ki ugye a $out_date-nél a kimeneti dátum, a $out_ttnr, pedig a száma.
  Jelenleg úgy gondoltam, hogy beviszem külön azt a részt amit most csak printelek a végén. És azt "sort"olom. ha az úgy megoldás lehet.

  [ Szerkesztve ]

Új hozzászólás Aktív témák