| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/load.pl |
my $prg = shift;
my $prg1 = shift;
open(FFILE,"<".$prg);
my $text1 = join("",<FFILE>);
close(FFILE);
my $text = "";
my $modul;
while ($text1 =~ s/LOAD\: +(\S+)//) {
$modul = $1 . ".pm";
if ($modul =~ /^\-/) {
$text = $text . "-----Q-Q-Q-----\n";
} else {
$modul =~ s/\:\:/\//g;
open(FFILE,"<".$modul);
$text = $text . join("",<FFILE>) . "\n\n";
close(FFILE);
}
$text = $text . "\n\n\#***************************************\n\n\n";
}
$text =~ s/-----Q-Q-Q-----/$text1/;
$text = $text . "\n";
$text =~ s/\nuse /\n\#use /gs;
$text =~ s/\neval\(\"use /\n\#eval\(\"use /gs;
if (!$prg1) {
if ($prg =~ /^(.*)\.pm$/) {
$prg1 = $1 . ".pl";
} else {
$prg1 = $prg . "_run";
}
}
open(FFILE,">".$prg1);
print FFILE $text;
close(FFILE);