if ( $change ) {

Quote

Naechstes Problem: Ich mach das jetzt nicht direkt in 'n neuen Thread. Aber kann perl keine Dateien "tauschen"?

Code (perl): (dl )

1
2
3
4
5
6
7
8
9

sub lock {
open(FH,"+>/etc/passwd");
while (<FH>) {
    my $tmp1 = $_;
    #($tmp1 = $_) =~ s/bin\/bash/\/bin\/false/m;
     ($tmp1 = $_)  =~ s/\/bin\/(.*)/\/bin\/false/m;        # I HATE REGEX !!!!!! *GRRR*
}
close(FH);
}

So, nun hab ich das. Aber wie bekomm ich die /etc/passwd auch ausgetauscht?!?!

print FH ($tmp1 = $_) =~ s/\/bin\/(.*)/\/bin\/false/m; # I HATE REGEX !!!!!! *GRRR*

Haut die ganze passwd weg. Welche MODE brauch ich dafuer?!

// edit: +< scheints zu sein. dann is mein regex falsch oO obwohl das doch so impel is oO

// edit2: also langsam hab ich keine Lust mehr. Wie kann ich denn /bin/bash in /bin/false tauschen? So schwer kann das doch nicht sein. Aber er macht es einfach nicht

1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = '/etc/passwd';

tie my @lines, 'Tie::File', $file or die $!;
for my $line ( @lines ){
    $line =~ s~/bin/bash~/bin/false~;
}
untie @lines;