Re: Plaintext underlining tool

Nice!

I did this example that I call 'the Pine Tree' pattern...

cat <<'EOF'| perl pul.pl '/*\*'
> Kernel-disk plus a disk containing the initial ramdisk, which will b
+e
> prompted for at boottime.
>
> If you wish to remaster the CD, please don't forget to specify
>         -no-emul-boot -boot-load-size 4 -boot-info-table \
>         -b boot/isolinux/isolinux.bin -c boot/isolinux/boot.cat
> as option to mkisofs. Otherwise your CD won't be bootable.
> EOF
Kernel-disk plus a disk containing the initial ramdisk, which will be
/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/
prompted for at boottime.
/*\*/*\*/*\*/*\*/*\*/*\*/


If you wish to remaster the CD, please don't forget to specify
/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*
        -no-emul-boot -boot-load-size 4 -boot-info-table \
        /*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*
        -b boot/isolinux/isolinux.bin -c boot/isolinux/boot.cat
        /*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\
as option to mkisofs. Otherwise your CD won't be bootable.
/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*
[download]

I still can't understand the use of having different names for the same script. Where are you keeping the default patterns?

Landlords production is only eaten by landlords...
Wherever I lay my KNOPPIX disk, a new FREE LINUX nation could be established

Comment on Re: Plaintext underlining tool Download Code

Replies are listed 'Best First'.
Re^2: Plaintext underlining tool by martin (Friar) on Jan 29, 2006 at 07:46 UTC
chanio asked: I still can't understand the use of having different names for the same script. Where are you keeping the default patterns? The default patterns are hard coded into the script, namely: `-----` `=====` `~~~~~` `^^^^^` The idea of scripts or binaries using the name they are called by as a parameter is not altogether uncommon in a Unix-like environment, a prominent example being your login shell that knows it is a login shell rather than an ordinary subshell from the fact that what appears to be its name starts with a dash. In such an environment the Perl function exec lets you choose the name argument (which will end up as `$0` in the called program) independently of the program's actual filename (using the indirect object syntax). The easiest way to take advantage of a `$0`-aware script from the command line, however, is to make it accessible via appropriate different filenames. Just link (or copy) your `pul.pl` file to `aul.pl` and see what happens if you call that (N.B. without a pattern argument).	[reply]
Re^3: Plaintext underlining tool by chanio (Priest) on Jan 31, 2006 at 00:27 UTC
`{qw(a - b = c ~ d ^)}->{substr($0, 0, 1)} \|\| shift;` [download] It is amazing! Linux & Perl always have a new surprise for me! Thank you! Landlords production is only eaten by landlords... Wherever I lay my KNOPPIX disk, a new FREE LINUX nation could be established	[reply] [d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks