From chicks at chicks.net  Mon May  1 05:48:19 2000
From: chicks at chicks.net (chicks@chicks.net)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Valeris' grade average program the way Chris would do it
Message-ID: <Pine.LNX.4.10.10005010641110.1075-200000@yakko>

I rewrote Valerie's program the way I would do it to follow Jeff's request
that we do the homework.  If you haven't done it yourself yet, don't look
at it!  ;-)

There are a few things that show up in here that haven't yet been
introduced in class:

my - this is just a way to declare variables.  Ignoring it is fine.
	This program would function fine without it.

printf - this is a way to do formatting printing.  We will cover this
	during the next class.  It would have been covered during the
	last class except that the overhead didn't work :-(

$somet =~ /..../ - this is pattern matching with a regular expression.
	We will talk about these in more detail later.  Don't even try
	to understand it yet.

uc() - this just upper cases something and I commented that in the program

Otherwise, I hope it is be a good example.  Comments, complaints, and
criticism are welcome, as always.

-- 
</chris>

Q: Why did Bill Gates cross the road?
A: To avoid the Department of Justice.
-------------- next part --------------
#!/usr/bin/perl -w

$| = 1; # cut off line-buffering

%grades = (
	'A' => 4,
	'A-' => 3.8,
	'B+' => 3.2,
	'B' => 3,
	'C' => 2,
	'D' => 1,
	'E' => 0,
	'F' => 0,
);

my $subject = 'go into the loop you stupid computer';

while ($subject) {
	print "Enter subject [Hit <ENTER> when done]: ";
	chomp($subject = <STDIN>);
	next if $subject eq '';
	
	print "Enter grade: ";
	chomp($grade = <STDIN>);

	$grade = uc($grade); # force it to be upper case

	if ($grade =~ /^[.0-9]+$/) {
		# numeric grade - OK as is
	} elsif ( defined($grades{$grade}) )  {
		$grade = $grades{$grade};
	} else {
		warn "incomprehensible grade - assuming 0 for $subject";
	}

	$receivedgrades{$subject} = $grade;
}

my $sum = 0;
my $count = 0;

print "\nyour grades:\n---------------------------------\n";
foreach $subj (sort keys %receivedgrades) {
	printf("%-20s %4.1f\n", $subj, $receivedgrades{$subj});

	$sum += $receivedgrades{$subj};
	$count++;
}

print "\nYour average is ", $sum/$count, "\n";
From mark at mrmark.com  Mon May  1 14:21:14 2000
From: mark at mrmark.com (Mark D Wolinski)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Testing Mod_Perl
In-Reply-To: <Pine.LNX.4.10.10005010641110.1075-200000@yakko>
Message-ID: <NEBBJPNCDBPOENNAKMMACEBOCDAA.mark@mrmark.com>

Being that I'm not a programmer ;-)

I finally got around to start installing mod_perl on one of my servers.
Following the installation guide of the OReilly book, it appears to make
correctly.

When I run make test, it hangs on:

modules/httpdconf...

The error log gives the following:

[Mon May  1 15:13:56 2000] [warn] pid file
/usr/src/mod_perl-1.23/t/logs/httpd.pid overwritten -- Unclean shutdown of
previous Apach
e run?
[notice] Destruction->DESTROY called for $global_object
[Mon May  1 15:13:57 2000] [warn] [notice] child_init for process 24213,
report any problems to [no address given]

cookie mismatch:
`key=val&two; domain=.cp.net; path=/perl/; expires=Mon, 01-May-2000 22:14:01
GMT'
   vs.
`key=val&two; domain=.cp.net; path=/; expires=Mon, 01-May-2000 22:14:01 GMT'
cookie mismatch:
`/perl/'
   vs.
`/'
cookie mismatch:
`key=val&two; domain=.cp.net; path=/perl/; expires=Mon, 01-May-2000 22:14:01
GMT'
   vs.
`key=val&two; domain=.cp.net; path=/; expires=Mon, 01-May-2000 22:14:01 GMT'
cookie mismatch:
`/perl/'
   vs.
`/'
cookie mismatch:
`key=one; domain=.cp.net; path=/perl/; expires=Mon, 01-May-2000 22:14:01
GMT'
   vs.
`key=one; domain=.cp.net; path=/; expires=Mon, 01-May-2000 22:14:01 GMT'
cookie mismatch:
`/perl/'
   vs.
`/'
cookie mismatch:
`one=bar-one&a; path=/perl/'
   vs.
`one=bar-one&a; path=/'
cookie mismatch:
`three=bar-three&c; path=/perl/'
   vs.
`three=bar-three&c; path=/'
cookie mismatch:
`two=bar-two&b; path=/perl/'
   vs.
`two=bar-two&b; path=/'
[notice] child process 24213 terminating
[notice] push'd PerlChildExitHandler called, pid=24213
[notice] push'd PerlChildExitHandler called, pid=24213
[notice] END block called for startup.pl
[notice] Destruction->DESTROY called for $global_object

Any ideas?

Mark W


From bader at cs.odu.edu  Tue May  2 14:59:47 2000
From: bader at cs.odu.edu (Terry)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] "My class" program
In-Reply-To: <LPBBILCMIGKIAHAICKDNIEBMCAAA.vannwms@mindspring.com>
Message-ID: <Pine.SOL.4.05.10005021558530.15514-100000@xenon.cs.odu.edu>


Valerie, something outside of Perl arena, but why does your email say 25
Aug on it...  you might want to check the date/time on your machine....

On Fri, 25 Aug 2000, Valerie Vann-Williams wrote:

> I finished correcting my first perl program we reviewed in class today. I
> have another problem... the program only works with whole numbers.  Can you
> give me a hint?  How should I proceed?
> 
> I'm going to start on the same program using hashes now.
> 
> Your assistance is greatly appreciated.
> Valerie
> 

Terry Bader         
Old Dominion University, Computer Science Dept
http://www.cs.odu.edu/~bader
bader@cs.odu.edu	icq: 5202487
work:(757)683-5871	pager:(757)326-2003


From webmaster at udtseals.com  Thu May  4 13:53:25 2000
From: webmaster at udtseals.com (Michael Theiss)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Saturday Meeting
Message-ID: <003801bfb5fa$076d0560$c301a8c0@alphas.com>

Hey all,
I was wondering whether we are going to get together for class on
Sat. or not. My feeling is to go ahead and wait to convene again
in two weeks. I have not had much time to practice what we have
already gone over and I think I may be able to apply some of it
constructively if we have another week. That's my piece.

Thanks
Michael




From twebster at pcs.cnu.edu  Thu May 11 11:17:54 2000
From: twebster at pcs.cnu.edu (Troy E. Webster)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] works but ugly
Message-ID: <Pine.GSO.4.02A.10005111209460.9211-100000@defender>

Ok,

I wrote this little script to take care of large blocks of white space and
also to strip off windoze generated carriage-returns/newlines from html
pages.  Trust me, it is usefull to me in certain situations.

Problem is I don't know how a '^M' (or windoze carriage return) is
represented in perl, so I just yank off two characters using chop() and
hope for the best.  Definetly not bullet proof. If anyone knows how I
could better this please let me know. It's my first perl program from
scratch.

thanks
Troy

****************************************************************
#!/usr/local/bin/perl -w
######################################################
# code.pl 
#
# This is a simple script which will process html files 
# and remove annoying blank lines in an html page's 
# source code which are generated by software packages 
# such as Cold Fusion. Hand-editing these pages is 
# tedious. 
#
# ERROR: If a line contains only a single letter and 
#        a \n (or a line with only two characters)
#        then this script will chop it out. The
#        assumption is that no html file will exhibit 
#        this characteristic.(bad assumption)
#
# NOTE:  This script will work on pages generated by 
#        a UNIX platform-specific application OR a 
#        page which was created in Windows. (there
#        are different "newlines" associated with each)
#
# AUTHOR: Troy Webster May 2000 
######################################################
die "Usage: code.pl [filename]\n" if (@ARGV < 1);

foreach (@ARGV) {
	print "Processing file: $_\n";

	my @lines;
	if(open(FH, "<$_")) 
	{
		@lines = <FH>;    #throw it into an array		 
		close(FH);
		
		if(open(FH,">$_")) 
		{
		    foreach(@lines) 
		    {
		      
			if ($_ eq "\n")
			{
			    print "removing blank line.\n";
			    chop $_;
			}
			
		        elsif (length($_) == 2)  # not the answer,
						 # but it works
			{
			    print "Length is 2\n";
			    
			    chop;
			    chop;
			    					
			}

			print FH $_;
		    }
		    close(FH);
		}
		else 
		{
		    die "File $_ not written.\n"; 
		}
	    }
	else 
	{
	    die "File $_ not opened.\n";
	}
	
    }
exit;
    






___________________________________________________________________________
		- improvise, adapt, overcome -

		www.pcs.cnu.edu/~twebster/
---------------------------------------------------------------------------


From cornette at infi.net  Thu May 11 12:33:19 2000
From: cornette at infi.net (Scott Cornette)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] works but ugly
In-Reply-To: <Pine.GSO.4.02A.10005111209460.9211-100000@defender>
Message-ID: <NDBBLCEANNEAMGKAKCPLGEGKCDAA.cornette@infi.net>

If you are looking to strip off the ^M characters at the end of each line
you will want to use s/\r//;

I am also including a program that I wrote/modified to strip all these
characters from files that are transferred to Unix from DOS/Windows based
machines as binary files accidentally.

Here it is:

#!/usr/local/bin/perl

# dos2unix.pl by David Efflandt <efflandt@xnet.com>
# Modification of script from "Learning perl" p.353
# O'Reilly & Associates, Inc.
#
# Run after transfering text files from DOS to UNIX system.
# Strips carriage returns from DOS files for use UNIX.
# Transfers file permissions to new file (except suid bit).
#
#       Usage:\tdos2unix.pl FILELIST
#       where FILELIST = one or more filenames
#
# If you edit this file in DOS you can run it on itself by typing:
#       perl dos2unix.pl dos2unix.pl
#
# Modify variables below for other search and replace functions.

$find = "\r";   # find this
$sub = undef;   # substitute with this
$rm_bak = 1;    # remove old file after conversion: 0 = no, 1 = yes

while (<>) {
        if ($ARGV ne $oldargv) {
                ($dev,$ino,$mode,$nlink,$uid,$gid) = stat($ARGV);
                $backup = $ARGV . '.bak';
                rename($ARGV, $backup);
                open (ARGVOUT, ">$ARGV");
                chmod $mode, $ARGV;
                select(ARGVOUT);
                $oldargv = $ARGV;
        }
        s/$find/$sub/;
} continue {
        print;
        if (eof) {
                print STDOUT "Converted: $oldargv\n";
                unlink $backup if $rm_bak;
        }
}
select(STDOUT);

Enjoy,

---------------------------
Scott Cornette
Team Leader
InfiNet Product Development
cornette@infi.net
757.624.2689
---------------------------

-----Original Message-----
From: owner-norfolk-pm-list@pm.org
[mailto:owner-norfolk-pm-list@pm.org]On Behalf Of Troy E. Webster
Sent: Thursday, May 11, 2000 12:18 PM
To: norfolk-pm-list@happyfunball.pm.org
Subject: [HRPM] works but ugly


Ok,

I wrote this little script to take care of large blocks of white space and
also to strip off windoze generated carriage-returns/newlines from html
pages.  Trust me, it is usefull to me in certain situations.

Problem is I don't know how a '^M' (or windoze carriage return) is
represented in perl, so I just yank off two characters using chop() and
hope for the best.  Definetly not bullet proof. If anyone knows how I
could better this please let me know. It's my first perl program from
scratch.

thanks
Troy

****************************************************************
#!/usr/local/bin/perl -w
######################################################
# code.pl
#
# This is a simple script which will process html files
# and remove annoying blank lines in an html page's
# source code which are generated by software packages
# such as Cold Fusion. Hand-editing these pages is
# tedious.
#
# ERROR: If a line contains only a single letter and
#        a \n (or a line with only two characters)
#        then this script will chop it out. The
#        assumption is that no html file will exhibit
#        this characteristic.(bad assumption)
#
# NOTE:  This script will work on pages generated by
#        a UNIX platform-specific application OR a
#        page which was created in Windows. (there
#        are different "newlines" associated with each)
#
# AUTHOR: Troy Webster May 2000
######################################################
die "Usage: code.pl [filename]\n" if (@ARGV < 1);

foreach (@ARGV) {
	print "Processing file: $_\n";

	my @lines;
	if(open(FH, "<$_"))
	{
		@lines = <FH>;    #throw it into an array
		close(FH);

		if(open(FH,">$_"))
		{
		    foreach(@lines)
		    {

			if ($_ eq "\n")
			{
			    print "removing blank line.\n";
			    chop $_;
			}

		        elsif (length($_) == 2)  # not the answer,
						 # but it works
			{
			    print "Length is 2\n";

			    chop;
			    chop;

			}

			print FH $_;
		    }
		    close(FH);
		}
		else
		{
		    die "File $_ not written.\n";
		}
	    }
	else
	{
	    die "File $_ not opened.\n";
	}

    }
exit;







___________________________________________________________________________
		- improvise, adapt, overcome -

		www.pcs.cnu.edu/~twebster/
---------------------------------------------------------------------------


From cornette at infi.net  Thu May 11 12:41:20 2000
From: cornette at infi.net (Scott Cornette)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Perl Expertise
Message-ID: <NDBBLCEANNEAMGKAKCPLMEHCCDAA.cornette@infi.net>

All,

I have been noticing that a lot of questions on this mailing list are not
too difficult to answer.  In addition, I have noticed mention of "homework"
involving perl.  My question is this:  What is the general level of perl
programming ability within this group?

I think that it is great that there is a medium for questions like the ones
I am seeing and I really love the fact that there are people yearning to
learn perl.  I have been programming with perl (nearly exclusively) since
1994 and I am looking for a group that can help me progress even further in
my knowledge of perl.

I plan on sticking around and helping whenever I can because I really think
it is awesome that there is continued interest in perl.  Perhaps I am
underestimating the levels of perl expertise that I have seen so far.  If I
have, please let me know so I will not make such an invalid assumption
again.

Thanks for your time,

---------------------------
Scott Cornette
Team Leader
InfiNet Product Development
cornette@infi.net
757.624.2689
---------------------------


From jduffy at semcor.com  Thu May 11 12:55:15 2000
From: jduffy at semcor.com (Jeff Duffy)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Perl Expertise
References: <852568DC.0061BDDE.00@NTMTA2.semcor.com>
Message-ID: <391AF403.B7CE4588@semcor.com>

Scott Cornette wrote:

> I have been noticing that a lot of questions on this mailing list are not
> too difficult to answer.  In addition, I have noticed mention of "homework"
> involving perl.  My question is this:  What is the general level of perl
> programming ability within this group?

 Well Scott, there are really two groups; the members of the
introductory Perl class (whose questions you are referring to), and the
regular HRPM members, who are a bit more advanced. Chris and I (who are
teaching the class) are constantly doing Perl development and are
probably among the most advanced perl coders in the group, along with a
few others like Mark and Bill.
> 
> I think that it is great that there is a medium for questions like the ones
> I am seeing and I really love the fact that there are people yearning to
> learn perl.  I have been programming with perl (nearly exclusively) since
> 1994 and I am looking for a group that can help me progress even further in
> my knowledge of perl.

 Then you should definitely show up to a HRPM meeting. We always give a
presentation on some advanced aspect of Perl; in the past we've covered
building modules, advanced data types, DBI, etc. In the future we'll be
covering things like advanced reference usage (building complex
structures), linking Perl and C with XS, Object Oriented Perl
(inheritance, closures, polymorphism, etc.) and so on.

> I plan on sticking around and helping whenever I can because I really think
> it is awesome that there is continued interest in perl.  Perhaps I am
> underestimating the levels of perl expertise that I have seen so far.  If I
> have, please let me know so I will not make such an invalid assumption
> again.

 Again, please show up to our next meeting! We'd love to see you there
and get your inputs on what topics you'd like to hear about. 

Jeff
-- 
Jeffrey A. Duffy
jduffy@semcor.com
perl -e 'print
pack"H*","4A6566662C20416E6F74686572205065726C204861636B65720A"'

From jjohnke at mapmobile.com  Thu May 11 12:57:55 2000
From: jjohnke at mapmobile.com (Jim Johnke)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] works but ugly
References: <Pine.GSO.4.02A.10005111209460.9211-100000@defender>
Message-ID: <391AF4A3.DE91928F@mapmobile.com>

This is an interesting program.  I've only been programming in Perl for
a few months now, and then only for my own personal use to make my life
easier.  I took your program and made a few modifications with things I
learned over the past few months.  I'm also interested in seeing some of
the other suggestions.

#!/usr/bin/perl -w

&Usage if (@ARGV < 1);

foreach (@ARGV) {
  print "Processing file: $_\n";

  open(INFILE, "<$_") or die "Could not open $_: $!";

  $outfile = $_ . '.out';
  open(OUTFILE, ">$outfile") or die "Could not open $outfile: $!";

  while ($line = <INFILE>) {
    $line =~ s/^M$//;   # ^M created by ctrl + V, still holding ctrl,
then M
    print OUTFILE $line if ($line !~ /^$/);     # print only if not a
blank line
  }

  close(OUTFILE);
  close(INFILE);

  unlink($_);                   # Delete original file
  rename ($outfile, $_);        # rename the output file to the original
name
  unlink($outfile);             # Delete out file
}

exit 0;

sub Usage {
  my ($prog) = $0 =~ m:([^/]+)/*$:;
  print STDERR "Usage: $prog <filename>\n";
  exit 1;
}


"Troy E. Webster" wrote:
> 
> Ok,
> 
> I wrote this little script to take care of large blocks of white space and
> also to strip off windoze generated carriage-returns/newlines from html
> pages.  Trust me, it is usefull to me in certain situations.
> 
> Problem is I don't know how a '^M' (or windoze carriage return) is
> represented in perl, so I just yank off two characters using chop() and
> hope for the best.  Definetly not bullet proof. If anyone knows how I
> could better this please let me know. It's my first perl program from
> scratch.
> 
> thanks
> Troy
> 
> ****************************************************************
> #!/usr/local/bin/perl -w
> ######################################################
> # code.pl
> #
> # This is a simple script which will process html files
> # and remove annoying blank lines in an html page's
> # source code which are generated by software packages
> # such as Cold Fusion. Hand-editing these pages is
> # tedious.
> #
> # ERROR: If a line contains only a single letter and
> #        a \n (or a line with only two characters)
> #        then this script will chop it out. The
> #        assumption is that no html file will exhibit
> #        this characteristic.(bad assumption)
> #
> # NOTE:  This script will work on pages generated by
> #        a UNIX platform-specific application OR a
> #        page which was created in Windows. (there
> #        are different "newlines" associated with each)
> #
> # AUTHOR: Troy Webster May 2000
> ######################################################
> die "Usage: code.pl [filename]\n" if (@ARGV < 1);
> 
> foreach (@ARGV) {
>         print "Processing file: $_\n";
> 
>         my @lines;
>         if(open(FH, "<$_"))
>         {
>                 @lines = <FH>;    #throw it into an array
>                 close(FH);
> 
>                 if(open(FH,">$_"))
>                 {
>                     foreach(@lines)
>                     {
> 
>                         if ($_ eq "\n")
>                         {
>                             print "removing blank line.\n";
>                             chop $_;
>                         }
> 
>                         elsif (length($_) == 2)  # not the answer,
>                                                  # but it works
>                         {
>                             print "Length is 2\n";
> 
>                             chop;
>                             chop;
> 
>                         }
> 
>                         print FH $_;
>                     }
>                     close(FH);
>                 }
>                 else
>                 {
>                     die "File $_ not written.\n";
>                 }
>             }
>         else
>         {
>             die "File $_ not opened.\n";
>         }
> 
>     }
> exit;
> 
> 
> ___________________________________________________________________________
>                 - improvise, adapt, overcome -
> 
>                 www.pcs.cnu.edu/~twebster/
> ---------------------------------------------------------------------------

From twebster at pcs.cnu.edu  Thu May 11 15:57:41 2000
From: twebster at pcs.cnu.edu (Troy E. Webster)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] new and improved
Message-ID: <Pine.GSO.4.02A.10005111652310.10755-100000@defender>

Thanks everyone for the tips...I used(stole) some ideas and made my
original code a little more robust. A little prettier and as a C++ guy, a
little more readable for me as well.

here's the updated script:

#!/usr/local/bin/perl 
######################################################
# code.pl 
#
# This is a simple script which will process html files 
# and remove annoying blank lines in an html page's 
# source code which are generated by software packages 
# such as Cold Fusion. Hand-editing these pages is 
# tedious. Also will strip out carriage returns from DOS
# files to use in UNIX.
#
# ERROR: none
#
# NOTE:  This script will work on pages generated by 
#        a UNIX platform-specific application OR a 
#        page which was created in Windows. (there
#        are different "newlines" associated with each)
#
# AUTHOR: Troy Webster May 2000 
######################################################
die "Usage: code.pl [filename]\n" if (@ARGV < 1);

foreach (@ARGV) 
{
    print "Processing file: $_\n";

    open (FH, "<$_") or die "unable to open file $_ .\n";
    my @lines = <FH>;
    close(FH);

    $get = "\r";
    $sub = undef;
     
    open (OUT, ">$_") or die "unable to open file.\n";

    foreach $line(@lines)
    {     
	$line =~ s/$get/$sub/g;         # gets rid of the \r 's
	
	if ($line eq "\n")
	{
	    print "removing blank line.\n";
	    chop $line;
	}
	
	print OUT $line;
    }
    close(OUT); 
}
exit;





___________________________________________________________________________
		- improvise, adapt, overcome -

		www.pcs.cnu.edu/~twebster/
---------------------------------------------------------------------------


From chicks at chicks.net  Thu May 11 15:10:15 2000
From: chicks at chicks.net (chicks@chicks.net)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] No Perl Class this weekend
Message-ID: <Pine.LNX.4.10.10005111607050.32035-100000@yakko>

I have had a major family emergency and I'm going out of town to help fix
things.  Jeff is supposed to be out of town this weekend too.  I haven't
been able to get in touch with him yet.  Please accept my sincere
apologies.  We can do a review session next week to get everybody back in
the groove.  I should have plenty of time to work on the slides for the
rest of the classes, though.  :-|

-- 
</chris>

Q. What's the difference between Batman and Bill Gates?
A. When Batman fought the Penguin, he won.


From vannwms at mindspring.com  Fri May 12 19:17:10 2000
From: vannwms at mindspring.com (Valerie Vann-Williams)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] No Perl Class this weekend
In-Reply-To: <Pine.LNX.4.10.10005111607050.32035-100000@yakko>
Message-ID: <LPBBILCMIGKIAHAICKDNMECGCAAA.vannwms@mindspring.com>

Jeff is suppose to leave town on Saturday. Looking forward to a review next
weekend.  If there is anything I can do, please let me know.  I hope things
work out okay!

v/r
Valerie

-----Original Message-----
From: owner-norfolk-pm-list@pm.org
[mailto:owner-norfolk-pm-list@pm.org]On Behalf Of chicks@chicks.net
Sent: Thursday, May 11, 2000 4:10 PM
To: HRPM
Subject: [HRPM] No Perl Class this weekend


I have had a major family emergency and I'm going out of town to help fix
things.  Jeff is supposed to be out of town this weekend too.  I haven't
been able to get in touch with him yet.  Please accept my sincere
apologies.  We can do a review session next week to get everybody back in
the groove.  I should have plenty of time to work on the slides for the
rest of the classes, though.  :-|

--
</chris>

Q. What's the difference between Batman and Bill Gates?
A. When Batman fought the Penguin, he won.


From jeff at alanne.com  Sat May 13 16:09:08 2000
From: jeff at alanne.com (Jeff Duffy)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] No Perl Class this weekend
In-Reply-To: <852568DE.0001331B.00@NTMTA.semcor.com>
Message-ID: <Pine.LNX.4.21.0005131707020.10746-100000@cairhien.alanne.com>

On Sat, 13 May 2000, Valerie Vann-Williams wrote:

> Jeff is suppose to leave town on Saturday. Looking forward to a review next
> weekend.  

 I will be in town next Saturday for the class, as Scheduled. It was only
 this Saturday that I was unavailable. Study up on your hashes!

 Jeff



From t_bader at edocombat.com  Wed May 24 08:46:49 2000
From: t_bader at edocombat.com (Terry Bader)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Perl is finished!?
Message-ID: <210EF7B72E71D311903D00105AA333DF18B52B@EXCHANGESERVER>


Well, according to this article, PErl will not be developed beyond 5.6....
Personally I hope that someone or group of someones will try and continue on
the development....  
http://www.segfault.org/story.phtml?mode=2&id=3905b40e-05c0a760

By the way, havent heard much about the meeting, it is still on right?

Terry Bader
EDO Combat Systems



From chicks at chicks.net  Wed May 24 10:21:27 2000
From: chicks at chicks.net (chicks@chicks.net)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] RE: [twuug] Updated Important TWUUG Information
In-Reply-To: <XFMail.20000524083600.klong@memach.com>
Message-ID: <Pine.LNX.4.10.10005241118510.18422-100000@yakko>

On Wed, 24 May 2000, Ken Long wrote:
> Really?  I thought they were doing the FOURTH wednesday?  This would
> be the rare beast known as the 5th wednesday.....

It's on the last Wednesday.  Which is good because I don't have my
presentation together yet.  And despite what the web site says, I suspect
next weeks talk will be on mod_perl.  I've gotten a few emails requesting
that instead.  And I may talk about Mason some too.  Mondo cool stuff.

-- 
</chris>

Q. What's the difference between Batman and Bill Gates?
A. When Batman fought the Penguin, he won.


From chicks at chicks.net  Wed May 24 11:51:32 2000
From: chicks at chicks.net (chicks@chicks.net)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Perl is finished!?
In-Reply-To: <210EF7B72E71D311903D00105AA333DF18B52B@EXCHANGESERVER>
Message-ID: <Pine.LNX.4.10.10005241137390.18422-100000@yakko>

On Wed, 24 May 2000, Terry Bader wrote:

> Well, according to this article, PErl will not be developed beyond
> 5.6.... Personally I hope that someone or group of someones will try
> and continue on the development....  
> http://www.segfault.org/story.phtml?mode=2&id=3905b40e-05c0a760

That story would make much more sense with a grain of salt.  :-)

> By the way, havent heard much about the meeting, it is still on right?

Yes, yes.  I've been out of town dealing with the amazingly difficult
medical profession.  But I'm planning on talking about mod_perl or hashes
next week.  It's not totally decided.  People seem to want mod_perl more.
I'll see how this week goes.

-- 
</chris>

Q. What's the difference between Batman and Bill Gates?
A. When Batman fought the Penguin, he won.



From chicks at chicks.net  Wed May 24 19:10:40 2000
From: chicks at chicks.net (chicks@chicks.net)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] CSCMail
Message-ID: <Pine.LNX.4.10.10005242001140.18422-100000@yakko>

I came across this and thought you guys might find it interesting.  If
anybody plays with it, drop a note to the list and let us know what you
think.

http://cyberdeck.org/cscmail/index2.html

CSCMail is a powerful graphical mail client for Linux. It's developed in
Perl using the GTK toolkit. CSCMail is Free Software released under the
GNU Public License. 

It has the following features 

   Version 1.6.x Features:

	- Full MBOX support, CSCMail can import your existing mbox folders
and export to mbox.
	- QMaildir support
	- HTML Mail (read only)
	- GtkHTML widget support, still supporting XmHTML by default.
	- Built-in helpbrowser, as well as mini-browser if using GtkHTML.
	- A smart addressbook that auto completes addresses for you if you
type them partialy in the To: field.
	- Very configurable, tons of options and preferences to choose
from.
	- Message colorization based on quote symbols and their levels.
	- Accpets command line args for integration with netscape through
muttzilla.
	- Spelling and Autospelling support. compatible with Ispell and
Aspell.
	- Can make use of threads if your perl is compiled with thread
support.
	- Multipart (MIME) support including inbound and outbound
attachements.
	- Hyperlinks that WORK! All mail is turned into a psuedo-html
message, with active hyperlinks. http:// ftp:// and mailto: are supported.
http and ftp load Netscape, mailto opens a new msg window in CSCMail
	- POP3 compatibility. 
	- Uses the Perl DBI interface now, for database flexibility. You
can now use any Perl DBI compliant database with CSCMail. Not just
Postgres.
	- Non-blocking mail transfers. Continue using CSCMail while your
mail transfers in the background.
	- Multiple POP3 Account support.
	- Filters, including a new message scoring system, useful for
maillists.
	- Header viewpane
	- sig support. Each account can have a different sig.
	- New messages counter
	- New messages are configured to your preferences
	- Auto-set reply address based on account used to DL message.
	- Send/Recieve/Reply/Forward.
	- Schedulable message transfers.
	- Outbox for storing unsent outbound messages.
	- Context Sensitive menus (Right Click)
	- Sent Items Folder, Drafts folder.
	- Message list sortable by From: Subj: and Date: fields (Just
click the column header to sort by that column, click again to reverse the
direction)
	- Multiple message selection. 
	- Multiple folders. 

-- 
</chris>

Q. What's the difference between Batman and Bill Gates?
A. When Batman fought the Penguin, he won.


From jduffy at semcor.com  Fri May 26 17:57:29 2000
From: jduffy at semcor.com (Jeff Duffy)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Class Topic
Message-ID: <392F0159.FDD8A9FF@semcor.com>

All,

 Tomorrow's class will be held at the normal time, and will cover
filehandles, file manipulation, etc. Look forward to seeing you there!

Jeff
-- 
Jeffrey A. Duffy
jduffy@semcor.com
perl -e 'print
pack"H*","4A6566662C20416E6F74686572205065726C204861636B65720A"'

From vannwms at mindspring.com  Fri May 26 18:21:06 2000
From: vannwms at mindspring.com (Valerie Vann-Williams)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Class Topic
In-Reply-To: <392F0159.FDD8A9FF@semcor.com>
Message-ID: <NBBBIEAPBCJBPCPFMGNLGEHLCAAA.vannwms@mindspring.com>

Jeff:

I will not be attending class tomorrow *&^%$#.  I've got contractors coming
to the house and my spouse will not be available. Hope I can catch up.  I
will read over the material.

Valerie

-----Original Message-----
From: owner-norfolk-pm-list@pm.org
[mailto:owner-norfolk-pm-list@pm.org]On Behalf Of Jeff Duffy
Sent: Friday, May 26, 2000 6:57 PM
To: HRPM
Subject: [HRPM] Class Topic


All,

 Tomorrow's class will be held at the normal time, and will cover
filehandles, file manipulation, etc. Look forward to seeing you there!

Jeff
--
Jeffrey A. Duffy
jduffy@semcor.com
perl -e 'print
pack"H*","4A6566662C20416E6F74686572205065726C204861636B65720A"'


From chicks at chicks.net  Sat May 27 22:26:00 2000
From: chicks at chicks.net (chicks@chicks.net)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Class Plan
Message-ID: <Pine.LNX.4.10.10005272319400.29311-100000@yakko>

I've gone ahead and laid out what I think is left for the rest of the
Saturday perl classes. Comments are welcome.

3 June
------
	Class 5: Subroutines, Advanced Logical Control, and Regular Expressions
	(Llama chapters 7-9)
	Includes: writing subs, scoping, return values, last, next, redo,
	block labels, && and ||, regexes, patterns, split and join.
	Extras: find2perl

10 June
-------
	Class 6: DBI

17 June
-------
	Class 7: CGI and sockets

-- 
</chris>

Q. What's the difference between Batman and Bill Gates?
A. When Batman fought the Penguin, he won.


From chicks at chicks.net  Sun May 28 10:02:49 2000
From: chicks at chicks.net (chicks@chicks.net)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Perl Power Tools: The Unix Reconstruction Project
Message-ID: <Pine.LNX.4.10.10005281052440.29311-100000@yakko>

Jeff mentioned the PPT project in class.  It is such a good way to make
a contribution to perl and see examples of somewhat sensible code by
Randal and Abigail.  So, to encourage you, here's a link:
	http://language.perl.com/ppt/index.html

-- 
</chris>

Q. What's the difference between Batman and Bill Gates?
A. When Batman fought the Penguin, he won.


From bader at cs.odu.edu  Sun May 28 10:20:53 2000
From: bader at cs.odu.edu (Terry)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Class Plan
In-Reply-To: <Pine.LNX.4.10.10005272319400.29311-100000@yakko>
Message-ID: <Pine.SOL.4.05.10005281113090.8288-100000@bobcat.cs.odu.edu>


Hey guys, looks like you are doing a great job with the class... I have a
request however about more advanced instruction... I am interested in
learning more about spawning child processes and how the parent-child
relationship can be used....  also i would like to see something about
wrapping perl code around other programs/processes and how those can
be manipulated by the wrapper.....  maybe we can discuss these more during
the regular meeting times, but i am truely interested in learning more
about these....


On Sat, 27 May 2000 chicks@chicks.net wrote:

> I've gone ahead and laid out what I think is left for the rest of the
> Saturday perl classes. Comments are welcome.
> 
> 3 June
> ------
> 	Class 5: Subroutines, Advanced Logical Control, and Regular Expressions
> 	(Llama chapters 7-9)
> 	Includes: writing subs, scoping, return values, last, next, redo,
> 	block labels, && and ||, regexes, patterns, split and join.
> 	Extras: find2perl
> 
> 10 June
> -------
> 	Class 6: DBI
> 
> 17 June
> -------
> 	Class 7: CGI and sockets
> 
> -- 
> </chris>
> 
> Q. What's the difference between Batman and Bill Gates?
> A. When Batman fought the Penguin, he won.
> 

Terry Bader         


From twebster at pcs.cnu.edu  Sun May 28 11:03:45 2000
From: twebster at pcs.cnu.edu (Troy E. Webster)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] line noise
In-Reply-To: <Pine.SOL.4.05.10005281113090.8288-100000@bobcat.cs.odu.edu>
Message-ID: <Pine.GSO.4.02A.10005281200200.2981-100000@defender>

Hey all,

Can someone please assist me in decoding this line of code...
I am in the process of trying to modify someone else's (broken) code, and
I don't understand what this one line does. Specifically, what does the
line noise after grep mean??

Here's the line: 

###
local(@allfiles) = grep !/^\.\.?$/, readdir(THISDIR);
###

Thanks in advance,
Troy Webster


___________________________________________________________________________
		- improvise, adapt, overcome -

		www.pcs.cnu.edu/~twebster/
---------------------------------------------------------------------------



From jduffy at semcor.com  Sun May 28 11:41:47 2000
From: jduffy at semcor.com (Jeff Duffy)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Adaptive Server Enterprise for Linux
Message-ID: <39314C4B.B5B35ED4@semcor.com>

 Here's the link for the Sybase download:

http://www.sybase.com/products/databaseservers/linux/linux1192_reg.html

Jeff

From chicks at chicks.net  Sun May 28 12:01:01 2000
From: chicks at chicks.net (chicks@chicks.net)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] line noise
In-Reply-To: <Pine.GSO.4.02A.10005281200200.2981-100000@defender>
Message-ID: <Pine.LNX.4.10.10005281248200.29311-100000@yakko>

On Sun, 28 May 2000, Troy E. Webster wrote:
> local(@allfiles) = grep !/^\.\.?$/, readdir(THISDIR);

! means not
/   / contains a regular expression
^ ties it to the beginning of the line
$ ties it to the end of the line
\. means a real period (. alone means any character)
? means 0 or 1

So what it gives you is the list of files from the directory and it skips
the '.' and '..' directories.

-- 
</chris>

Q. What's the difference between Batman and Bill Gates?
A. When Batman fought the Penguin, he won.


From twebster at pcs.cnu.edu  Sun May 28 16:56:49 2000
From: twebster at pcs.cnu.edu (Troy E. Webster)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] grrep
In-Reply-To: <Pine.GSO.4.02A.10005281200200.2981-100000@defender>
Message-ID: <Pine.GSO.4.02A.10005281752100.3788-100000@defender>

Hey all,

Here's a little script I'd like somefeedback  on. If there's any way to
make this more bullet-proof or functonal, please give me your thoughts.

Thanks,
Troy

#!/usr/local/bin/perl -w
##################################################################
# To use this script, just type grrep STRING FILETYPE
# FILETYPE is optional. The script will search for that 
# string in every file, beginning in the current directory,
# and continuing recursively. It will print out
# the path, filename, and the line of any matches
# it finds.
#
# AUTHOR: Troy Webster (modified and rewritten from 
#                       code authored by Mat Maravillas)
# Date: May 2000 
##################################################################
if (@ARGV < 1)  
{
    print <<ERROR_MSSG;
    
******************************************************************

You did not enter enough arguments. grrep must be called in the form:

    grrep [STRING] [TYPE] <- optional

STRING is the string you wish to look for.  
** NOTE: case sensitive **

TYPE(optional)  is the type of file you want to search in, such as
 .h or .pl

Remember, grrep is recursive, so every file in the directory you 
specify will be examined.

*****************************************************************

ERROR_MSSG

  exit;
}

$findstring = $ARGV[0];
if (@ARGV == 2)
{
    $do_pages = $ARGV[1];
}
else
{
    $do_pages = "";
}

$dont_pages = ".o";
$filesfound = 0;

$currentDirectory = `pwd`;
chomp($currentDirectory);
print "\n\n*** List of successful matches ***\n\n";

&goIntoDirectory("$currentDirectory");

if ($filesfound != 0)
{
    print "\n*** $filesfound matching files ***\n";
}

else
{
    print "\n*** No matching files ***\n";
}


#****************************************************
# subroutine goIntoDirectory
# 
# this sub is recursive and traverses the filesystem 
# starting at the directory passed in as its' 
# parameter, looking for a pattern match and printing
# out successful matches.
#****************************************************

sub goIntoDirectory  
{
  local($directory) = @_;
  
  opendir (THISDIR, "$directory") or print "Couldn't get into $directory\n";

 ### gives you is the list of files from the directory and it skips
 ### the '.' and '..' directories
  local(@allfiles) = grep !/^\.\.?$/, readdir(THISDIR); 
  closedir THISDIR;

  local($thisfile);

  foreach $file (@allfiles)  
  {
      local($tmp) = $file;
      local($uno) = chop($tmp);
      
      ### check for directory ###
    if (opendir(ANOTHERDIR, "$directory/$file"))  
    {          
      closedir (ANOTHERDIR);
      
      ### recurse down ###
      &goIntoDirectory("$directory/$file");   
    }

    elsif ($uno =~ /$dont_pages/)
    {}
   
    elsif (($file =~ /$do_pages/) || ($do_pages eq ""))  
    {
        my $flag = 0;

        unless (open(FILENAME, "$directory/$file"))  
        {
            print "Unable to look into $directory/$file \n";
            $flag = 1;
        }

        $thisfile = 0;
        
        while (($flag != 1) && ($tempstring = <FILENAME>))  
        {
            if ($tempstring =~ /$findstring/)  
            {
                if ($thisfile == 0)
                {
                    print "$directory/$file:\n\t $tempstring \n";
                    $filesfound++;
                    $thisfile = 1;
                }
            }
        }
        close FILENAME;
    } 
  }
}

###################### End grrep ################################


From chicks at chicks.net  Sun May 28 19:49:30 2000
From: chicks at chicks.net (chicks@chicks.net)
Date: Thu Aug  5 00:08:05 2004
Subject: [HRPM] Class Plan
In-Reply-To: <Pine.SOL.4.05.10005281113090.8288-100000@bobcat.cs.odu.edu>
Message-ID: <Pine.LNX.4.10.10005282040090.29311-100000@yakko>

On Sun, 28 May 2000, Terry wrote:
> Hey guys, looks like you are doing a great job with the class...

I'm pleased.  We've re-ordered things and cut and added material enough
that it's gone smoother than my 9-5 M-F classes went.  Sometime within the
next couple of weeks the class slides are going to be cleaned up and
posted on the site.

> I have a request however about more advanced instruction... I am
> interested in learning more about spawning child processes and how the
> parent-child relationship can be used.... 

That will be covered as part of the sockets discussion in class.  I'm
planning on showing traditional and pre-forked TCP server examples.  A
healthy discussion of fork and exec are required for that.

> also i would like to see something about wrapping perl code around
> other programs/processes and how those can be manipulated by the
> wrapper.....  maybe we can discuss these more during the regular
> meeting times, but i am truely interested in learning more about
> these....

If you don't require bidirectional communication with an app, it's pretty
simple to send it a stream or take it's output and turn it into a file
handle.  For instance:
	open (WHOIS,"whois chicks.net@whois.networksolutions.com|") or die;
will give you a file handle to read the output of whois or
	open (CHPASS,"|chpasswd") or die;
will give you a file handle to write to change people's passwords via
chpasswd.

There are some more advanced examples in the /Perl Cookbook/.  Over time,
we're covering most of the /Cookbook/ material at HRPM meetings.

-- 
</chris>

Q. What's the difference between Batman and Bill Gates?
A. When Batman fought the Penguin, he won.