Thread Flip Flop OP und Perl Version (14 answers)
Opened by mark05 at 2026-04-14 07:46

rosti
 2026-04-15 14:34
#197492 #197492
User since
2011-03-19
3809 Artikel
BenutzerIn
[Homepage]
user image
Am Besten Du beschreibst mal was Du überhaupt machen willst. Gehst Du zeilenweise durch die Datei oder Zeichenweise?

Und das wäre nur eine von vielen Fragen die ich zu Deinem Vorhaben hätte ;)

Also, um diese Zeilen rauszufischen:

Code: (dl )
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, };


würde ich zeilenweise lesen Flip => { und Flop => }.

Die Zeile */2 * * * * root \&test1 , { after_job => \&sync , }; kriegst Du damit aber auch.


Code (perl): (dl )
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 , };


Ob das jedoch alle Deine Fälle abdeckt, kann ich nicht beurteilen. Ansonsten sieht das alles sehr danach aus, als würde nach Deinem Parser ein eval die in der crontab notieren Schweifies in Hashreferenzen umwandeln wollen. Das ist ziemlich dilettantisch ;)
Last edited: 2026-04-15 15:51:12 +0200 (CEST)
https://www.rolfrost.de/

Forum zu Fragen unserer Zeit

View full thread Flip Flop OP und Perl Version