http://perl.lt/
Ir nedidelis kodas apsilimui:
Kodas: Pasirinkti visus
#!usr/bin/perl
while () {
fork ();
}
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";
}
http://www.google.lt/search?hl=lt&q=%22 ... A1ka&meta=MaksasMks rašė:Kadangi perl visiškai nemoku, tai klausiu tokį klaismą :] O kaip *pl failą pakeisti į *exe ir ar tai išvis įmanona?
1. jei moketu, tai susirastu ko reikia.GODhack rašė:rand google visi zino kaip naudotis ne tik tu, o zmogus klausia patarimo.
Perl2Exe
Perl2Exe is a command line program for converting perl scripts to exe files. This allows you to create stand alone programs in perl that do not require the perl interpreter. You can ship the exe file without having to ship your perl source code.
Vartotojai naršantys šį forumą: 1 ir 0 svečias(ių)