Opened by mark05 at 2026-04-14 07:46
User since
2010-01-05
142 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2010-01-05
142 Artikel
BenutzerIn
so was zum testen
erste eine beispiel crontab datei
die genannten scripte werden nicht benötigt .
nun der test code
die path zu den beispiel crontab datei anpassen !
es sollte reichen die zeile mit dem next auszukommentieren um den unterschied zu sehen.
im kern geht es das um die crontab zeile mit den umbrüchen.
in perl 5.38 ( ubuntu 24.04 ) sollte das ergebniss so aus sehen
path sind manuell in diesem post korrigiert.
wenn das next weg genommen wird sieht das bei mir so aus
was als Ergebnis nicht richtig / von mir erwartet wird.
Holger
erste eine beispiel crontab datei
Code: (dl
)
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 , };
die genannten scripte werden nicht benötigt .
nun der test code
Code: (dl
)
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;
die path zu den beispiel crontab datei anpassen !
es sollte reichen die zeile mit dem next auszukommentieren um den unterschied zu sehen.
im kern geht es das um die crontab zeile mit den umbrüchen.
in perl 5.38 ( ubuntu 24.04 ) sollte das ergebniss so aus sehen
Code: (dl
)
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 , };'
];
path sind manuell in diesem post korrigiert.
wenn das next weg genommen wird sieht das bei mir so aus
Code: (dl
)
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,'
];
was als Ergebnis nicht richtig / von mir erwartet wird.
Holger