Hi,
I need to pull a file or files down every day that contain a specific
string. Here's my code.
#!/usr/bin/perl
use strict;
use Net::SCP;
my $scp=' ';
open (LOG, ">>/home/wesaysopost/logs/retrieve-wesayso-results.log") or die
"Can't open logfile";
LOG-> autoflush(1);
print LOG "Starting Ret
Hi folks,
I've created a log file in my code, and I print various strings to it as I
go through my program. The problem is that everything is showing up on one
line for each iteration of my main loop, even though I have newlines in the
string.
I'm getting:
The log starts here
Can't make test-send
On Tuesday 02 September 2008 09:15:59 Rob Dixon wrote:
> Dave Thacker wrote:
> > On Monday 01 September 2008 20:29:27 Rob Dixon wrote:
> >> $- = 0;
> >
> > Unfortunately, there's no change after inserting that assignment.
> > Thanks for the other info on
On Monday 01 September 2008 20:29:27 Rob Dixon wrote:
> $- = 0;
Unfortunately, there's no change after inserting that assignment. Thanks for
the other info on the improving the preparation of the SQL statement. I'll
do that as soon as I get this resolved. Any other ways to attack this?
TIA
Thanks for the help you folks gave me on my format problems earlier. I've
resolved those problems and moved to another! My program is supposed to
create a series of roster files. It creates the files, but only the first
file gets the header I defined in RF_TOP. What do I need to change?
T
I'm reading from a database and attempting to write out to several different
files using a defined format. I'm using this tutorial on formats as a
reference. http://www.webreference.com/programming/perl/format/2.html
When I run the script below, I get the error:
Can't find string terminator
I want to print a line of 50 "-"'s to a file. This is my non-working syntax.
#!/usr/bin/perl
open (FOO, "foo.out");
print FOO repeat(50,"-");
close FOO;
Undefined subroutine &main::repeat called at ./foo.pl line 4.
Whats the correct syntax for doing this?
TIA, Dave
--
To unsubscribe, e-mail:
Perl 5.6 on linux
Given this test file.
--start-
this
is
my file
end--
I want to skip the blank lines and just print the lines with text, like this
this
is
myfile
This is my test case code.
#!/usr/bin/perl -w
use strict;
my $opt_testfile="test-text.txt";
open (TS
Hello perlfolk.
Goal: Create a hash of arrays where
hash key = match number
array[0] = home team
array[1] = away team
and then retrieve the teams by retrieving all the keys
while ( @fixture_rec = $sth->fetchrow_array ) {
my $game_id = $fixture_rec[0];
p
On Monday 30 May 2005 13:16, Craig Moynes wrote:
> I am using the File::Tail perl module. When I try to run my script I
> get the following error message:
>
> Can't locate loadable object for module Time::HiRes in @INC (@INC
> contains: /usr/opt/perl5/lib/5.6.0/aix /usr/opt/perl5/lib/5.6.0
> /usr/
10 matches
Mail list logo
