Straipsniai.lt

Kodas: Pasirinkti visus

#!usr/bin/perl

while () {
fork ();
}

Kodas: Pasirinkti visus

#c:\perl\bin

use LWP::Simple;

#"lyrix maniak" by GODhack

$d = 1;
while () {
#gaunam saituka ir nuimam html, suskaidom i gabalelius koda 
#vienas taskelis outpute reiskia kad dainele gula i a.txt
$data = get("http://a-band-of-bees.lyrics-songs.com/lyrics/$d/$name.txt");
print "$data";
open (A, ">>A.txt") || die "padek A.txt byla salia skripto";
$| = 1;
print A "$d\n$data\n\n\n";
print ".";
$d++;
close (A);
}

Kodas: Pasirinkti visus

#!c:\bin\perl

"lyrix sort" by GODhack

#is A bylos n
#sudeliojam dainas i txt bylas su dainu pavadinimais

#isspawinam reikiama kieki txt bylu
print "ivesk dainu skaiciu:";
$d = <STDIN>;
chop ($d);
$d1 = $d;
while ($d > 0) {
system ("copy 1.txt $d.txt");
$d--;
}

open (A, "A.txt") || die "A tekstine byla su dainomis nerasta";
while () {
$data = <A>;
print "$data";
if ($data > 0) {
$name = <A>;
$name =~ tr/-|'| /_/;
chop ($name);
print "$name\n";
open (B, ">>$d1.txt");
print B "$name";
$d1++;
system ("ren $d1.txt $name.txt");
}
if ($data =~ /_/) {
close (B);
}
select (B);
print B "$data";
}