16 lines
319 B
Perl
Executable File
16 lines
319 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
|
|
if ( not( grep /\b\\Noselect\b/i, ('* LIST (\Noselect \HasChildren) "/" Archive') ) ) {
|
|
print "Selectable\n" ;
|
|
}else{
|
|
print "Not selectable\n" ;
|
|
}
|
|
|
|
|
|
if ( not( grep /\\Noselect\b/i, ('* LIST (\Noselect \HasChildren) "/" Archive') ) ) {
|
|
print "Selectable\n" ;
|
|
}else{
|
|
print "Not selectable\n" ;
|
|
}
|