Snipplr

(Perl) Process quoted text differently - deepsoul

Mon, 18 Jun 2012 05:00:57 GMT

This Perl snippet shows how to separate quoted parts from a text in order to process quoted and unquoted parts separately. For example, you could expand variables or wildcards only in the unquoted part. Then the different processed parts are put together again. That a marker character "\x01" is used to mark the position of the quoted passages is a bit ugly, but on the other hand the single line of code putting the text together again is very elegant and shows off what Perl can do!

(Perl) chomp text files and return regex matches by product - alfirth

Sat, 29 Jan 2011 09:02:00 GMT

(Perl) Changing text case utility - davidmoreen

Mon, 09 Aug 2010 08:20:18 GMT

Just run in your consol window as ./tocase (or whatever you call the file). Be sure to give it proper permission first (chmod 755 tocase) :]

(Perl) Convert a PDF to text with Perl - noah

Fri, 21 Nov 2008 16:24:58 GMT

Converts the PDF 'example.pdf' to plain text. IIRC this only converts the _first_ page of the document, but that can be changed by modifying the argument to getPageContentTree on line 8. Been a while since I've used this so ymmv.

(Perl) Clean up Word documents that have been translated to HTML - noah

Tue, 04 Nov 2008 09:54:38 GMT

Haven't tried this with any recent versions of Word. Yet.

(Perl) Remove newline characters from text - retry

Tue, 29 Jul 2008 03:17:03 GMT

This Perl one-liner will remove all newline characters from a text file, replacing them with a space. In the source, all newline characters in the file gear_list.xml are replaced with spaces, and the original file is saved as gear_list.xml.bak

(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.

(Perl) capitalize words - noah

Tue, 03 Jul 2007 22:53:02 GMT

(Perl) Grab linked files from a list of web pages - noah

Tue, 03 Jul 2007 22:31:30 GMT

## how to use `perl grabit.pl urls_for_download.txt` Expects as argument the name of a file containing a newline-delimited list of URLs: http://example.com/coolstuff http://example.com/coolstuff/fun http://example.com/videos/explosions When invoked, launches an interactive shell that asks what type of file should be downloaded. Then downloads all the files that are linked from each of the listed Web pages. Note that the location of the download folder is hard-coded to `c:/windows/desktop/grabit/` so you may want to change that before trying. This script is also [available on Github](http://github.com/textarcana/scrapers/blob/643e6e7cb349fa94cbc3fc88e1d55c7b6a262d11/grabit.pl) ## Wait! Do you know about WGet and Curl? This script is legacy. People seem to like it (hey, I still use it) but today I would probably not write my own tool to download multiple files off remote sites. Instead I would likely just use a command-line Web browser like [WGet](http://lifehacker.com/software/top/geek-to-live--mastering-wget-161202.php 'Gina Trapani of Lifehacker, on the way of the WGet ninja') or Curl. [LWP-Request would also do the trick](http://snipplr.com/view/4063/download-linked-jpegs-from-a-web-page-on-the-command-line/) ## do not comment your code like this! For a great explanation of the rather baroque commenting style I was using circa 2001, see [Steve Yegge's excellent article on code style: *Portait of a n00b.*](http://steve-yegge.blogspot.com/2008/02/portrait-of-n00b.html) Of course, when I sit down to write a Perl script today, I [use POD](http://snipplr.com/view/18611/perl-pod-embedded-documentation-example/) to format and publish my comments.

(Perl) Remove duplicate lines from a text file with Perl - noah

Tue, 03 Jul 2007 22:06:34 GMT

*[Found at Google Answers.](http://answers.google.com/answers/threadview?id=25196)* Sometimes I get a big list of things, and some of the things occur multiple times in the same list. To make the list easier to read, I want to *delete* the duplicate lines. A good example is a list of files that have errors (maybe excerpted from an application sever's log files). In that case you have a newline-delimited list of file paths, and depending upon the situation, the same file path might be listed 4 or 5 times or more. Often, it is useful to have a list of just the files that are faulty, which can be produced by deleting all the duplicate lines. This script is for filtering just those kinds of list files. [Of course,](http://xkcd.com/378/ "emacs has a command for that") for **Emacs** users [there is a much easier way to remove duplicate lines:](http://everything2.com/title/useful%2520emacs%2520lisp%2520functions "useful emacs lisp functions"), if you have `uniq` installed on your system. `M-x sort-lines RET C-x h M-x shell-command-on-region RET uniq RET`

(Perl) Examine CSS selectors in JSP files and report on whether they match some patterns - noah

Tue, 03 Jul 2007 21:27:59 GMT

Processe a directory of JSP source files, looks for regex matches, and reports on the number and location of matches. For detecting deprecated attributes in XHTML. Uses Mail::Outlook to send an email. Requires you to click "ok" each time a notification is sent, but gets around firewalls.

(Perl) Text change across multiple files - noah

Sun, 28 Jan 2007 09:01:18 GMT

Put this in a script called "update.pl" and call it with "ls *ext|xargs perl update.pl" Be sure to back up the work directory before playing with this, as it is very easy to wipe out the content of a bunch of files at once in this way.