[ILUG] Newbie Perl Question

[Aidan Kehoe]

 Ar an 4u la de mi 10, scriobh JustinMacCarthy :

 > You might be better off using gawk and save yourself some work
 > gawk  '/\/en\/\{ print }' filename

Okay, let's see can I suggest another way without using grep(1) (Since
everyone else seems so prejudiced against it. :-); 

---- Cut here. ----
#!/bin/sh

cat << __EOF__ > c.c
#include <stdio.h>
main()
{
	char *s, buf[1024], *fgets(), *strstr(); 
	while((fgets(buf, sizeof(buf), stdin)) != (char *)NULL)
		if (strstr(buf, "/en/")) 
			printf("%s", buf); 
}		
__EOF__
cc -o c c.c
./c < $1
---- Cut here. ----

And run as 'script logfile' . 

-- 
`... when the elephant man broke strong men's necks, when he'd had too 
many Powers, ...'