Fwd: Re: [DLSLUG-Discuss] Perl

Roger e-mail addresses are not shown in archives
Sun Dec 4 04:57:08 EST 2005



This is a response to James, but I kinda wanted to CC the rest of the group. sorry about that
mistake...

-Roger

--- Roger <[e-mail addresses are not shown in archives]> wrote:

> Date: Sun, 4 Dec 2005 01:54:09 -0800 (PST)
> From: Roger <[e-mail addresses are not shown in archives]>
> Subject: Re: [DLSLUG-Discuss] Perl
> To: James Fogg <[e-mail addresses are not shown in archives]>
> 
> 
> 
> I remember that book. That's a good book.
> Be careful though...
> It comes in two variations: Windows and non-Windows *IX platforms.
> 
> (Hint: Here is yet another reason why I'm gravitating towards Linux/BSD.
> The perl port on Windows is lacking. )
> 
> Someone such as you who knows BASIC and shell environments should pick up perl quickly. If
> you've
> written hello world in BASIC, counted Fibonacci numbers in BASIC, written long and ugly shell
> scripts, or used very cryptic regular expressions in grep, then you will love Perl. Perl glues
> all
> of those features together nicely. 
> 
> I tend to use Perl as a quick and dirty way to automate things that would annoy me as an
> end-user.
> I tend to think of it as shell scripting on steriods. I wouldn't use Perl to write complex
> client-side code. (I would use Java or C++ with GUI libaries.) 
> 
> so...
> Read the UNIX/Linux version of that beginners book.
> Stay away from Windows's ports unless you're desperate.
> You'll write beautiful Linux/BSD Perl scripts that will ALMOST work on Windows. (Some features
> don't quite work as advertised on the Windows port.)
> 
> (If you want scripting on Windows, learn VBScript.)
> 
> The manpages are extensive!!!!! (man perl, man perltoc, etc...)
> They don't do a good job of teaching the language, but they make great reference guides. Use
> them
> WITH that book! 
> 
> (I'm willing to sit down and explain what MY perl examples do after you've read some of that
> beginners book! Once you understand the small scripts that I write, I suggest talking to the
> other
> members for more complicated stuff. I'm just an amateur hacker.)
> 
> I've attached a sample script. I've tested it on Mac OS X (or BSD). It takes as a command-line
> parameter the name of a program that won't go away. You don't have to know the pid of the
> program.
> The script finds the pid for you! It kills programs faster than the "force-quit" command will. I
> use it whenever Netscape 7.1 chokes on the JavaScript code that Yahoo uses. lol...
> 
> Also, you can look over the other example Perl script that I recently sent to the group.
> I expanded upon the Mozilla plugin for multi-media. 
> I made the pluggin "rc" file call my Perl script with the filename of a temp file. That temp
> file
> may or may not have the correct filename extension. In the script, I use the xmms tools to make
> the plugin play the midi files. I was feeling frustrated because I couldn't make "timidity",
> "playmidi", and "xmms2" work on my Fedora system.
> 
> Both of my Perl scripts are open source. Please read them before you use them on your system.
> (Hint, hint...)
> 
> -Roger
> 
> 
> 
> --- James Fogg <[e-mail addresses are not shown in archives]> wrote:
> 
> > At the late age of 42 I have a requirement to learn perl. To make
> > matters worse, I have little experience with any structured high level
> > languages other than BASIC (I have some Assembler experience for the
> > PDP-11 family though).
> > 
> > For those of you who know perl, if you had to learn it all over again,
> > how would you do it? I hear that O'Reilly's "Learning Perl" is a good
> > resource. Are there any "live" resources, like night courses? Is anyone
> > willing to tutor an older student?
> > 
> >  -James
> > _______________________________________________
> > DLSLUG-Discuss mailing list
> > [e-mail addresses are not shown in archives]
> > http://dlslug.org/mailman/listinfo/dlslug-discuss
> > 
> 
> 
> 		
> __________________________________________ 
> Yahoo! DSL – Something to write home about. 
> Just $16.99/mo. or less. 
> dsl.yahoo.com 
> > #!/usr/bin/perl
> 
> $process_id = -999999;
> open(PROCESS_SEARCH,"ps aux|") || die "I couldn't read the process table.\n";
> $done = 0;
> 
> LINE: while(<PROCESS_SEARCH>)
> {
>         if ($_ =~ /$ARGV[0]/)
> 	{
> 		@working_tokens = split(/\s/,$_);
> 		@actual_tokens = ();
> 		foreach $single_token (@working_tokens)
> 		{
> 			if ($single_token =~ /\w+/)
> 			{
> 				push(@actual_tokens,$single_token);
> 			}
> 		}
> 		$process_id = $actual_tokens[1];
> 		printf "The process id for $ARGV[0] is $process_id.\n";
> 		last LINE;
> 	} 
> }
> 
> close PROCESS_SEARCH || die "I couldn't close the process table.\n";
> 
> if ($process_id == -999999)
> {
> 	exit;
> }
> 
> kill SIGKILL, $process_id
> 
> 



		
__________________________________ 
Start your day with Yahoo! - Make it your home page! 
http://www.yahoo.com/r/hs
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: kill_this.pl
Url: http://dlslug.org/pipermail/dlslug-discuss/attachments/20051204/5c035173/attachment.pl 


More information about the DLSLUG-Discuss mailing list