Code Sample |
#!/usr/bin/perl $inp = `cat $ARGV[0]`; @i = split("\n", $inp); open(FH, ">$ARGV[0].icewm"); foreach $elem (@i) { if ($elem=~/#/) { next; } if ($elem=~/\[submenu\] \((.+)\)/) { unless ($1 eq "Styles") {print FH "menu \"$1\" \"folder\" {\n"}; } if ($elem=~/\[end\]/) { print FH "}\n"; } if ($elem=~/\[exec\] \((.+)\) \{(.+)\}/) { print FH "prog \"$1\" \"-\" $2\n"; } } close (FH); |