On Fri, Jun 08, 2001 at 11:03:50AM -0400, Chris Rogers wrote:
> The subject line may not correctly describe the problem but that is probably
> because I don't really understand the problem myself. Here's a brief
> rundown of what I am trying to do:
> I have a string that is delimited by pipes
On Thu, Jun 07, 2001 at 06:13:25PM -0700, Prabaharan Dorairajan wrote:
> Hi,
>
> I am unable to pass values from perl to Oracle using DBI.
>
>
> Could any one help me?
>
> Here is the program:
> #!/depot/perl/rel/bin/perl
#!/depot/perl/rel/bin/perl -w
use strict;
> use DBI;
> my (dbh,sth)
On Thu, Jun 07, 2001 at 11:50:01PM +, scott lutz wrote:
> I have a this fancy bit of recursive search and replace code that I picked
> up somewhere, but I would greatly appreciate it if one of the gurus could
> explain it in English for me:
>
> find . -type f -print0 | xargs -0 perl -pi -e
On Thu, Jun 07, 2001 at 07:51:50PM -0400, Luinrandir Hernson wrote:
> I have tried
> perldoc -f env
> perldoc -f http
> perldoc -f %env
> perldoc -f $env
>
> to find documentation on %ENV. no luck
> anyone???
perldoc perlvar
-f is for builtin functions
--
Just Another Perl Hacker.
On Thu, Jun 07, 2001 at 05:45:23PM -0400, [EMAIL PROTECTED] wrote:
>
> I've been looking all over for examples of external hash tables. I know I was
> reading about them just last week, but now I can't remember where. I belive the
> commands (functions?) are openhash() and closehash(), or some
On Thu, Jun 07, 2001 at 04:34:48PM -0400, Bradshaw, Brian wrote:
> You guys have been so nice.. I have another question :)
>
> What does fetchhash do?
>
> I have the code :
> $return_hash = $dbh->query($query) or print "$query\n\n";
> %result = $return_hash->fetchhash();
> But I am u
On Wed, Jun 06, 2001 at 02:02:33PM -0500, David Blevins wrote:
[snip]
>my @list1 = grep(/$year_$month_.*01\.txt/, @allFiles);
>my @list2 = grep(/$year_$month_.*01a\.txt/, @allFiles);
[snip]
These regexes look for variables $year_ and $month_.
Let me guess -- you're not using warnings, r
On Mon, Jun 04, 2001 at 04:33:13PM -0500, Nichole Bialczyk wrote:
> the bossman has requested the following:
>
> he wants my logfiles written to our server in the /tmp directory. my
> scripts are in the cgi-bin of our afs account. even though the files are
> set with 777 permissions, the outsid
On Mon, Jun 04, 2001 at 11:46:00AM -0400, Pedro A Reche Gallardo wrote:
> Hi, please have a look to this perl one line command.
> perl -ne 'BEGIN{$/=">"}if(/^\s*(\S+)/){open(F,">$1")|| warn"$1 write
> failed:$!\n";chomp;print F ">", $_}'
>
> This command will take a file like this:
>
> >name1:
On Fri, Jun 01, 2001 at 03:05:59PM -0400, David Gilden wrote:
[snip -- was there a question about '?:' ?]
> printf question--
>
> ### get time
> my($sec, $min, $hour, $mday, $month, $year) = (localtime)[0..5];
> $year += 1900;
> $mday = "0" . $mday if $mday < 10;
> $month++; # perl counts fr
On Thu, May 31, 2001 at 09:05:55AM -0400, Swappan Das wrote:
> Please help and advice me the steps to learn Perl programming quickly.
> I just bought the book "Learning Perl" by Randal L. Schwartz & Tom
> Christiansen.
>
> I am learning Perl on AIX platform and I have Perl 5.0.3. I did not
>
On Wed, May 30, 2001 at 03:57:44PM -0700, Peter Lemus wrote:
> Hi guys, I keep getting errors on the followin script.
> I need the script to logout all users other then root
> or ipl.
>
> 1 #!/usr/bin/perl
> 2 #
> 3 #Purpose: To logout users off the system
> during after hours.
On Wed, May 30, 2001 at 01:25:07PM -0400, David Gilden wrote:
> The following seems to never break out of the loop,
> any comments?
> Thanks
>
> Dave
>
> #!/usr/bin/perl -w
>
>
> $data = 'some
> multi line
> string';
>
>
> while($data){
>
>push(@everyline, $_);
>
On Fri, May 18, 2001 at 02:15:05PM -0400, Yacketta,Ronald J wrote:
> #!/usr/local/bin/perl
#!/usr/local/bin/perl -w
use strict;
[snip]
--
Never hit anyone with glasses. Instead, use your fist.
On Fri, May 18, 2001 at 12:08:25PM -0400, David Merrill wrote:
> Hi,
>
> I'm working on my very first perl application, which is a front end to
> a database for the LDP. I am trying to truncate a string, using:
>
> $title =~ s/\s*$//;
>
> where $title = "The Linux Programmer's Guide "
>
On Thu, May 17, 2001 at 09:25:53PM -, Stout, Joel R wrote:
>
> I want to get the file names of all "EDI" files from a certain directory. I
> do not want "ENT" (or encrypted) file names.
>
> Example:
>
> The directory contains:
> a001.edi
> a002.edi
> a003.edi.ent
> a004.EDI
>
> After ge
On Wed, May 09, 2001 at 01:50:24PM -0400, [EMAIL PROTECTED] wrote:
> #!user/local/bin/perl -w
>
> open TRY , "try.txt";
>
> while () {
> (my $b=$_) =~ s/^(\() (\w+)/$2/;
> print $b;
> }
>
> Thank you for humiliating me with this simple question.
Any time.
#!/usr/bin/perl -w
use st
On Wed, May 09, 2001 at 12:13:54PM -0500, Shawn wrote:
> I just want an efficient mv subroutine or module which has such a thing,
> but none of the File::* things seem to have mv.
I think you'll be pleasantly surprised if you look in File::Copy.
--
I don't know what the hell is going on dude, b
On Tue, May 08, 2001 at 05:24:10PM -0400, Anshu Anshu wrote:
> 22 while () {
> 23 if (/$LOCTAG/i) {
> 24 ($curloc) = /VALUE="([^"]+)"\s*\w*>/i;
> 25 $location .= "${curloc}::";
> 26 }
> 27
> 28 if (/$TYPETAG/i) {
> 29 ($curtyp
On Tue, May 01, 2001 at 11:28:02AM -0400, Dale Owens wrote:
> I am completely new to perl and this question may seem really lame,
> but I can't get the most basic script to work. I am trying to run
> this on my web host's server:
>
> #!usr/bin/perl
>
> print "Content-type: text/html\n\n";
> pri
On Mon, Apr 30, 2001 at 02:01:47PM +0800, Andrew Teo wrote:
> Hi all,
> I am interested in self-learning the DBI module for database
> manipulation. Are there any good online tutorials available?
Try dbi.symbolstone.org.
--
If the organizational structure is threatening in any way, nothing is
g
On Mon, Apr 30, 2001 at 12:06:55PM +0100, Gary Stainburn wrote:
> Hi all,
>
> can anyone tell me why the following code does not come out with
> '-123.45'. It actually comes out with '123.45-'.
>
> I think that it is because it's treating it as a number at some point,
> but I can't see when/w
On Fri, Apr 27, 2001 at 09:44:42AM +0700, Billy Joedono wrote:
> Hi all,
>
> Below is a piece of code central to my problem.
[snip]
> #!/usr/bin/perl
That should read "#!/usr/bin/perl -w"
Just after that should be a line with "use strict;".
Best of luck,
J
--
Rule #0: Spam is theft.
On Thu, Apr 26, 2001 at 02:49:41PM +0100, Gary Stainburn wrote:
> Hi all,
>
> Using the following code:-
>
> 63 foreach (@fieldmap) {
> 64 my ($dbfield,$field)=(split(/:/))[0,$fieldno];
> 65 print "dbfield='$dbfield' field='$field'\n";
> 66 &addtext($dbfield,$fields{$field}) if ( $field n
On Tue, Apr 24, 2001 at 01:09:13PM -0400, Kevin Meltzer wrote:
> Hi Susan,
>
> I get what you expect:
>
> perl -wle '$y=2001;$m=4;$d=5;printf("\%s%02s%02s.doc",$y,$m,$d)';
> 20010405.doc
[snip]
Well I'll be damned.
[ ~ ] perl -e 'printf "%04s\n", 1'
0001
[ ~ ] perl -e 'printf "%04s\n", "1"'
0
On Tue, Apr 24, 2001 at 11:00:40AM -0500, Arante, Susan wrote:
> Could someone tell me why this is happening? When I use this command, it
> used to give me 20010405.doc (mmdd.doc), now it's giving me 2001 4 5.doc
> - I'm losing the leading zeros.
> Command is on Perl 5 - printf("\%s%02s%02s
On Mon, Apr 23, 2001 at 12:33:00PM -0400, David Gilden wrote:
> Hello,
> Sorry to ask this, as I am quite new at this.
> And the online class that I am just now finishing has
> lots of bad code for examples!
>
> >From this list:
>
> print "'$file' => '$newfile'\n";
> ^
>
On Fri, Apr 20, 2001 at 06:08:47PM -0400, McCormick, Rob E wrote:
[snip]
One thing I find confusing about your example is that you're
using the same variable ($msds_files) twice, for different things.
How about something like:
#!c:/perl/bin/perl -w
use strict;
my $dir = "c:/winnt/profiles/mypro
28 matches
Mail list logo
