perlscript um php files zu html files zu machen:

  1. lädt seite mit bilder herunter
  2. macht dateinamen .php dateien zu .html
  3. ä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;
}

Personal Tools