Jemand zu Hause?Leser: 8
1
2
3
PATH=/usr/lib/sysstat:/usr/sbin:/usr/sbin:/usr/bin:/sbin:/bin
*/2 * * * * root \&test1 , { after_job => \&sync , };
1
2
3
4
5
6
if ( $r =~ /[,]\s*?[{]/smx .. $r =~ /[}]\s*[;]\s*$/smx ) {
push @{$rawdata{$l}},$r;
if ( $OLD_PERL_VERSION > '5.026' ) {
next;
}
}given
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
#! /usr/bin/env perl use strict; use warnings; use English qw( -no_match_vars ); print $PERL_VERSION, "\n"; if ($PERL_VERSION > 5.020 ) { print "Version OK.\n"; } while ( my $r = <DATA> ) { if ( $r =~ m/{/ .. $r =~ m/}/ ) { print $r; } } __DATA__ nicht gesehen. { 1 2 3 } wieder nicht gesehen.
1
2
3
4
5
6
7
8
9
10
PATH=/usr/lib/sysstat:/usr/sbin:/usr/sbin:/usr/bin:/sbin:/bin
*/2 * * * * root test2.sh , {
sub => \&test2,
arguments => test2 opt,
loadcheck => 2,
execwhile => 3,
catch => 1,
after_job => test2_after_job.sh, };
*/2 * * * * root \&test1 , { after_job => \&sync , };
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#!/usr/bin/perl
use warnings;
use English '-no_match_vars';
use strict;
use Carp;
use Data::Dumper;
my %rawdata;
my $l = 0 ;
open my $RW , '<', 'etc/cronjobs/test' or croak $ERRNO;
while ( my $r = <$RW> ) {
chomp $r;
if ( $r =~ /^[\s|\t]*[#]{1,}/smx ) { next ; }
if ( $r eq q{} ) { next ; }
# remove space at the end
$r =~ s/\s+$//gsmx ;
$r =~ s/\t+$//gsmx ;
if ( $r =~ /^PATH/smx ) {
next;
}
if ( $r =~ /^MAILTO/smx ) {
next;
}
if ( $r =~ /^SHELL/smx ) {
next;
}
if ( $r =~ /[,]\s*?[{]/smx .. $r =~ /[}]\s*[;]\s*$/smx ) {
push @{$rawdata{$l}},$r;
if ( $OLD_PERL_VERSION > '5.026001' ) {
next;
}
}
$l++;
if ( $r !~ /[,]\s*[{].+[}][;]$/smx ) {
push @{$rawdata{$l}},$r;
$l++;
}
}
close $RW or carp $ERRNO;
print Dumper %rawdata;
1
2
3
4
5
6
7
8
9
10
11
$VAR1 = '0';
$VAR2 = [
'*/2 * * * * root test2.sh , {',
' sub => \\&test2,',
' arguments => test2 opt,',
' loadcheck => 2,',
' execwhile => 3,',
' catch => 1,',
' after_job => test2_after_job.sh, };',
'*/2 * * * * root \\&test1 , { after_job => \\&sync , };'
];
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
VAR1 = '0';
$VAR2 = [
'*/2 * * * * root test2.sh , {'
];
$VAR3 = '11';
$VAR4 = [
' catch => 1,'
];
$VAR5 = '1';
$VAR6 = [
'*/2 * * * * root test2.sh , {'
];
$VAR7 = '10';
$VAR8 = [
' catch => 1,'
];
$VAR9 = '5';
$VAR10 = [
' arguments => test2 opt,'
];
$VAR11 = '6';
$VAR12 = [
' loadcheck => 2,'
];
$VAR13 = '13';
$VAR14 = [
' after_job => test2_after_job.sh, };'
];
$VAR15 = '12';
$VAR16 = [
' after_job => test2_after_job.sh, };'
];
$VAR17 = '7';
$VAR18 = [
' loadcheck => 2,'
];
$VAR19 = '2';
$VAR20 = [
' sub => \\&test2,'
];
$VAR21 = '9';
$VAR22 = [
' execwhile => 3,'
];
$VAR23 = '4';
$VAR24 = [
' arguments => test2 opt,'
];
$VAR25 = '14';
$VAR26 = [
'*/2 * * * * root \\&test1 , { after_job => \\&sync , };'
];
$VAR27 = '3';
$VAR28 = [
' sub => \\&test2,'
];
$VAR29 = '8';
$VAR30 = [
' execwhile => 3,'
];
2026-04-15T09:22:26 rostiDu willst also die Zeile haben wo der {} Ausdruck steht.
Da ist der Flop Flop Operator völlig unangebracht.
MFG
1
2
3
4
5
6
7
*/2 * * * * root test2.sh , {
sub => \&test2,
arguments => test2 opt,
loadcheck => 2,
execwhile => 3,
catch => 1,
after_job => test2_after_job.sh, };1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
while( <DATA> ){ if( /{/ .. /}/){ print $_; } } __DATA__ PATH=/usr/lib/sysstat:/usr/sbin:/usr/sbin:/usr/bin:/sbin:/bin */2 * * * * root test2.sh , { sub => \&test2, arguments => test2 opt, loadcheck => 2, execwhile => 3, catch => 1, after_job => test2_after_job.sh, }; */2 * * * * root \&test1 , { after_job => \&sync , };
QuoteGrund ist das die Zeile sehr lang werden kann wenn man die Flags verwendet.
Wie installiert man ein Modul?