Read Directory

Reikia scriptuko, kuris skaitytų kokie failai yra /home/game/adj/sc_trans_040/mp3/ direktorijoje ir įrašytų jų pavadinimus į list.lst tokiu formatu:

 

/home/game/adj/sc_trans_040/mp3/Failo pavadinimas.mp3
/home/game/adj/sc_trans_040/mp3/Failo pavadinimas2.mp3
/home/game/adj/sc_trans_040/mp3/Failo pavadinimas3.mp3
/home/game/adj/sc_trans_040/mp3/Failo pavadinimas4.mp3
/home/game/adj/sc_trans_040/mp3/Failo pavadinimas5.mp3
...

 

Scriptukas yra labai nesudėtingas, (esu pats rašęs tik kažkur pamečiau) todėl mokėsiu 1,5$.

galima su perl? vistiek *unix like.

 

#!/usr/bin/perl
open(LOG, '>>log.lst');
@files= `ls`;
foreach $file (@files) {
chomp($file);
if ($file=~ /.mp3/) {
print LOG "/home/game/adj/sc_trans_040/mp3/$file\n";
} 
}

cia itrauks i sarasa visus failu vardus kurie turi pavadinime: .mp3 :)

 

 

 

P.S. tingejau su opendir, readdir daryti :/ jei neturi prieimo prie sistemos tai galeciau su php perrasyti :/

 

 

P.P.S. Veikimas:

ssh [email protected]

Password:

 

Welcome!

 

cd /home/game/adj/sc_trans_040/mp3/

 

vi script.pl (ten irasyk scripto source)

 

perl script.pl

 

vsio ir atsiras failas: log.lst

 

 

e.g.: 4381317

Redagavo Rugsėjo 16, 2007 dirbu

Ačiū dirbu, puikiai veikia. :)

 

e-metal® payment confirmation: Batch 85102354

Paid To: 4381317 (KoWeB inc. account)

Amount: 2 US Dollars' worth of Gold

Memo: perl

 

From: 3856667 (Hotbox)

 

Actual payment weight = 0.002824 oz. (0.087838 grams)

Equivalent USD amount of this payment: $2.00

Applicable Conversion factors:

1 oz. troy = 31.1034768 grams

Gold exchange rate = 708.20USD/oz.

 

The e-metal payment was successful.

Your batch number for confirmation is 85102354

Thank you for using e-gold.

Redagavo Rugsėjo 16, 2007 Ernestas