Mal ein bissl was Gehacktes...

[Erwin]

n' ahmd,

Serverumzug, andere Umgebung, shebang Zeile ändern, 100 CGI - Scripts?

Kein Thema, so gehts:

=shebang.pl
#!/usr/bin/perl

shebang Zeile anpassen

use strict;
use DB_File;

opendir DIR, '/home/netlab/htdocs/cgi-bin' or die $!;
my @files = grep { /.cgi$/ } readdir DIR;
closedir DIR;

foreach my $file( @files ){
 #print "$file\n";
 tie my @h, "DB_File", $file, O_RDWR|O_CREAT, 0640, $DB_RECNO
  or die "Cannot open file 'text': $!\n" ;
 $h[0] = '#!perl'; # the new shebang
 untie @h;
}
=Verwendung auf eigene Gefahr ;-)

Gruss, Erwin

[Peter Kaufmann]

Hallo Erwin,

Serverumzug, andere Umgebung, shebang Zeile ändern, 100 CGI - Scripts?

Kein Thema, so gehts mit sed:

~> for file in find /home/netlab/htdocs/cgi-bin -name "\*.cgi"; do sed '1 c \ #!perl' $file | cat > $file; done

Grüße,

Peter

[Erwin]

Moin Peter,

Serverumzug, andere Umgebung, shebang Zeile ändern, 100 CGI - Scripts?

Kein Thema, so gehts mit sed:

~> for file in find /home/netlab/htdocs/cgi-bin -name "\*.cgi"; do sed '1 c \ #!perl' $file | cat > $file; done

wow - vielen Dank!

Gruss, Erwin

sed ist klasse ;-)