Snipplr

(Perl) Detect PHP files with trailing whitespace, using Perl - noah

Wed, 29 Dec 2010 08:25:03 GMT

The following incantation returns nonzero exit status when the terminating `?>` of a PHP file, is followed by whitespace.

(Perl) Renumber the files in a directory, or prefix file names with numbers - noah

Fri, 15 Jan 2010 16:16:57 GMT

Useful for renumbering frames to feed into `ffmpeg`

(Perl) check for broken links (shell one-liner) - noah

Sat, 15 Aug 2009 08:55:19 GMT

Retrieves links from a remote HTML page, then checks the response code of each link. Duplicated links are only checked once, and anchors are ignored. That is `http://foo` and `http://foo#bar` are considered to be the same URL, and thus `http://foo` will only be checked once; even if both URLs occur on the page. Note that if the command produces too much output for you, you can filter down to just the *broken* links (if any) by piping the output of the entire one-liner, to `grep -v "200 OK"` ## Dependencies These must be installed on your system: 0. [Perl](http://perl.org) 0. [lwp-request](http://search.cpan.org/~gaas/libwww-perl-5.831/bin/lwp-request) 0. [sort](http://www.gnu.org/software/coreutils/manual/html_node/sort-invocation.html 'GNU sort sorts lines in a text file') 0. [uniq](http://www.gnu.org/software/coreutils/manual/html_node/uniq-invocation.html 'GNU uniq filters duplicate items from a list') ## Troubleshooting **Check the quotes.** The command below has strings wrapped in *double* quotes (") which is appropriate if you are using a *Windows* shell. **If you are using a Mac or Linux shell** then you need to change the double quotes around the strings in the command below, to *single* quotes ('). Then all should work fine. It is good to keep in mind always that the Windows shell wants strings to be double-quoted, while Unix-ish shells want strings to be single-quoted.

(Perl) comparing the checksums of two files with Perl and cksum - noah

Sun, 05 Jul 2009 21:17:39 GMT

This one-liner helps to determine if two or more files have the same checksum. It works by piping the output from `cksum` to Perl, which takes note of the first checksum and compares each subsequent file's checksum to that value. Assume an example session where we have three identical files and two that are different >echo bart > bart >cp bart bart1 >cp bart bart2 >echo milhouse > mvh >echo lisa > lisa two files with the same checksum, produce no output >cksum bart bart1 | perl -ane '$x ||= $F[0]; warn if $x != $F[0];' if a there is a different checksum, the line numbers printed are the indexes of those files >cksum bart bart1 mvh bart2 lisa | perl -ane '$x ||= $F[0]; warn if $x != $F[0];' Warning: something's wrong at -e line 1, line 3. Warning: something's wrong at -e line 1, line 5.

(Perl) grep with Perl - noah

Thu, 05 Feb 2009 13:29:59 GMT

A combination of the instructions in the book _Minimal Perl_ and [this Perl one-liners page](http://sial.org/howto/perl/one-liner/) The general form of the one-liner is: > perl -wnl -e '/REGEX/ and print $ARGV." $.: $_"; close ARGV if eof' The example below shows how to print the hex colors that are defined in a [Sass](http://haml.hamptoncatlin.com/docs/rdoc/classes/Sass.html) source tree.

(Perl) Rake routes filtering with Perl - noah

Sat, 08 Nov 2008 11:29:05 GMT

(Perl) Generate XHTML on the command line with XML::API::XHTML - noah

Sun, 10 Feb 2008 02:21:23 GMT

Build a simple XHTML document, format it with Tidy and print the result to "temp.html." You may first need to `cpan XML::API::XHTML`, and install Tidy using your favorite package manager, or just [download Tidy by itself](http://tidy.sourceforge.net/#binaries) ### If you can't install XML::API::XHTML On my system, CPAN complained that "make test had returned bad status" during installation of XML::API::XHTML. To solve this I started the CPAN shell (just type `cpan`) and then forced the install, like this: cpan> force XML::API::XHTML

(Perl) search and replace across multiple files with Perl - noah

Wed, 04 Jul 2007 20:00:52 GMT

A couple of useful snippets from an article I found at Perl.com **Perl search-and-replace on the command line.** All of these should be usable under Cygwin as well. But remember that bash wants single-quoted strings but MS-DOS shell wants strings to be double-quoted.