Mklocal.pl
perlscript um php files zu html files zu machen:
- lädt seite mit bilder herunter
- macht dateinamen .php dateien zu .html
- ändert das vorkommen von .php in der datei zu .html
verwandte seiten
code
GNU nano 1.2.4
#!/usr/bin/perl
# V 0.1.0 060120 mklocal.pl
#
# Licensed under GPL
#
# ¢ ¢
# ¢ ¢
# ¢ ¢¢ ¢ ¢ ¢¢ ¢¢ ¢¢ ¢¢ ¢¢
# ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢ ¢
# ¢ ¢ ¢ ¢¢ ¢ ¢ ¢¢¢ ¢ ¢¢ ¢ ¢¢¢
# ¢ ¢
# martin ¢¢ krung ¢¢
#
# ++++++++++++++++++++++++++++++++++++++++++++++++
#
# USAGE
# perl mklocal.pl
#
# make config in file
#
# REQUIRE
# wget,cat,rm,mv,echo
use strict;
my $url = 'http://testuser.pizquit.net';
my $folder = $url;
$folder =~ s#http://##;
#download
docom("wget -p -np -nv -k -r -l 6 $url");
chdir($folder);
for(<*.php>) {
my $name = $_;
# convert .php to .html
$name =~ s#.php#.html#;
#move *.php to *.html
docom("mv -v $_ $name");
#remove *.php
docom("rm -v $_");
}
for(<*.html>) {
my $name = $_;
# open file over shell
my $file = `cat $name`;
# convert every .php to html
$file =~ s/.php/.html/g;
# write file over shell
docom("echo '$file' > $name");
}
exit;
# lib
sub docom(){
my $com=$_[0];
println($com);
my $output=`$com`;
return($output);
}
sub println(){
my $ln=$_[0];
if ($_[1]){
my @list = @_;
for(@list){
print $_."\n";
}
} else {
print $ln."\n";
}
return 1;
}