Useful Perl script – convert text to ascii

[problem]

You want to convert text to ascii values.

[/problem]

[solution]

Perl script to convert standard input to ascii values, useful with web code.

You can take the output and insert directly into HTML pages.

#!/usr/bin/perl

while(sysread(STDIN,$a,1)) {

$c=ord($a);if($c==10) { print "n"; } else { print "&#$c;"; }

}

exit(0);

__END__

[/solution]

[example]

Here is a screen shot:

[/example]

[reference]

[/reference]

If you have found my website useful, please consider buying me a coffee below 😉