>>$/=\015;
> You're giving it a (reference to a) number
> (hence the fixed size buffer); instead give
> it the character: '$/="\r"' should work.
Hmmph - I knew it would be one of those
little details ;-).
Great - now it
those mac-lines on a windows box ?
Thanx for your help in advance.
Greetings from the polish border
Oliver
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
correct DST.
That was the decisive hint. I thought I checked
my environment carefully enough. But I didn't.
Some special software, installed on my machine,
had set the "TZ" variable.
After unsetting it for perl's execution
environment time was correct again.
Thanx for all the
perl, v5.8.7 built for MSWin32-x86-multi-thread
(with 14 registered patches, see perl -V for more detail)
Copyright 1987-2005, Larry Wall
Binary build 815 [211909] provided by ActiveState http://www.ActiveState.com
Built Nov 2 2005 08:44:52
Thanx for your help in advance
gre
ironment, recognized that the sheband line be used on
Windows. I cannot rule this out for Perl scripts running under
[EMAIL PROTECTED], though.
Oliver
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listser
Andrew Mansfield wrote:
I want to match files that have no period in their filename.
if( $_ =~ /[^.]/) {
if( $_ !~ /\./) {
or
unless( /\./ ) {
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
blems with forks and threads under Win32
(used to be a problem but I've looked at this since 5.8 was released).
Finally, Advanced Perl Programming has a couple of chapters on Networking:
http://www.oreilly.com/catalog/advperl/index.html
--
Si
Ricci, Mark wrote:
>Is there a perl module that will open a specified port on a server
> and receive data on it?
Socket, IO::Socket or Net::Telnet
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe
be the cause of your trouble. (hard to tell
without seing the data)
$columnar_chart_value="value_"."$i"."_"."$inner_counter"."_"."$counter";
At no point do you declare or set $counter.
The final
application is ruled out, perhaps with the
exception of Excel (see Spreadsheet::ParseExcel).
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
functions and CPAN
modules where possible, avoiding shelling out to the O/S, using Win32::*
modules, etc then the port to Solaris could be trivial. You know your code
best!
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To
kaleb murphy wrote:
>
> I'm wondering if anyone can point me to the correct
> drivers for MSAccess's ODBC drivers. I tried
> installing MS's MDAC 2.7, but I still get a "no MS
> Access driver found" error.
Are the drivers listed in the ODBC administrator? If so they are
installed.
Let's see y
sn",$uid,$pwd,$attr)
or die "Error connecting to datasource '$dsn': $DBI::errstr\n";
my $sql = q{SELECT id, value FROM table ORDER BY 2};
my $sth = $dbh->prepare($sql);
$sth->execute;
my $html = q{};
while (my $row
Hey There,
I am not sure how to do it with Perl itself (maybe the
Win32::AdminMisc), but the Windows Resource KIT comes with INSTSRV.EXE
and SRVANY.EXE, those two files allows a user to make any application
run as a service on the machine.
Contact me directly if you need step by
E. Oliver
System Administrator
AETC GCCS C4 Systems
DSN 487-7678
Comm: (210) 652-7678
= $ENV{PERLXS} || "Perl";
$server = $ENV{SERVER_SOFTWARE};
$client = $ENV{REMOTE_ADDR};
print << "EOHTML";
HTTP/1.0 200 OK
Content-Type: text/html\n
$title
$title
This is $perlxs Version
ut if the system is idle for abt 30 mins.
>
I guess you are manageing your own sessions via cookies?
You need to resend (overwrite) the cookie on each access with a new expiry
value of +30M.
--
Simon Oliver
___
Perl-Win32-Users mailing list
where CustomerName = ?';
my $name = $db->selectrow_array($sql, undef, $CustomerName);
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Tim Fletcher wrote:
>
> shurly it isn't that hard to
> create a conection to an other IP and send/receive info!
> Any help would be very helpful
> TIA ;)
perldoc IO::Socket::INET
Also look at the RPC modules (PlRPC) and Net::Daemon
, primarily because I'll have to use a temporary file for
> : the output
>
> Try:
>
> eval $perl_code;
> print $@ if $@;
>
That will run the code too - which might probably not desirable!
--
Simon Oliver
__
ing down SHIFT at the same time highlights the block
> within the brackets
I didn't know that - thanks for the tip!
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
of the data referenced by $row:
while (my $row = $sth->fetchrow_hashref()) {
$returned_rows{$row->{'ID'}} = {%$row};
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
"Morse, Richard E." wrote:
>
> Simon Oliver [mailto:[EMAIL PROTECTED]] wrote:
>
> > This probably means that the ODBC driver does not support the function
> > (GetPrimaryKeys).
>
> As you noted, a trace reveals that this function isn't supported. If t
s are supported by your
driver. I snagged the constants from SQL.H and SQLEXT.H - there may be
some missing :(
--
Simon Oliver
#!perl
#
# functions.pl, [EMAIL PROTECTED]
# lists driver supported ODBC functions
#
use warnings;
use strict;
use DBI;
my ($dsn, $uid, $pwd) = @ARGV;
if (!defined $dsn || $ds
x27;t forget, when it get's multidimensional you can drop the ->
notation so it looks multidimensional too:
$i_ama_hash_ref->{ima_key2}{"I'm a key"}="I'm a value";
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
lem please excuse my lack of skill. This is driving me nuts so any help will be appreciated.
Wayne E. Oliver
System Administrator
AETC GCCS C4 Systems
DSN 487-7678
Comm: (210) 652-7678
print "$matched\n" if defined $matched;
}
Which can be simplified to:
while(<>) {
print "$1\n" if /(\w*xy\w*)/;
}
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
It's in the DBI man page under "ATTRIBUTES COMMON TO ALL HANDLES". Read the
sections titled "LongReadLen" and "LongTruncOk".
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscri
> perl -e 'print "Hello World!\n"'
> "Can't find string terminator "'" anywhere before EOF at -e line 1."
> Question is - How does anyone do substantive one-liners in Windows?
perl -e "print qq{Hello World!\n}"
--
Simon Ol
Carl Jolley wrote:
>
> > Any body have any ideals?
>
> I kinda like Nelson Mandela.
>
That would be an idol!
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
DBD::Sybase built against FreeTDS libraries.
Amol Natu wrote:
>
> Hi
>
> I intend to fetch some data from an MS Sql server DB using perl scripts
> residing on a Solaris box. I am currently using doing the same from an
> Oracle DB using DBI:Oracle.
> What are the alternatives for connecting to M
Hey Dude,
use the /s option in regsvr32 ... regsvr32's alerts require
responses.. so ur script waits for user to click OK.. .. the /s option
makes regsvr32 run in silent mode so it will register and continue...
$result = `regsvr32 /s urdll.dll`;
- Olly
-Original Message-
From:
lScript in the ActiveState ActivePerl Components docuemntation.
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
he latest ActivePerl - it puts everything in place.
Then just start your asp files with
<%@ Language="PerlScript"%>
--
Simon Oliver
Here's a short example:
<%@ Language="PerlScript"%>
<%
my ($title, $perltype);
$title = "Hello PerlSc
> @tables = $dbh->table_info();
@tables = $dbh->tables();
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
with an information type of SQL_TIMEDATE_FUNCTIONS.
The scalar function NOW( ) has been available since ODBC 1.0.
ODBC uses escape sequences for scalar functions. The syntax of this escape
sequence is as follows:
{fn scalar-function}
SELECT * FROM orders WHERE due_date > {fn NOW()}
--
S
Does this have anything to do with perl?
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
the DSN on the client (actually you
can by installing PerlScript on the client first but there are serious
security problems with that - think, instead of creating a DSN I could create
files on the client filesystem or delete them).
--
Simon Oliver
___
P
?
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
something like ...
open IN, "<$infile" or die $!;
open OUT, "<$outfile" or die $!;
while () {
next if /^subnet/;
print OUT;
}
close OUT;
close IN;
unlink $infile or die $!;
rename $outfile, $infile or die $!;
--
Simon Oliver
utime perhaps?
"Kamphuys, ing. K.G." wrote:
>
> Hi list members,
>
> How can I change the file date of a file to a given value? I know Windows
> supports that since there are programs that enable you to do so, but how can
> I do that in perl?
> Preferrably a perl command or module rather than
State 5.6.1 - not standard Perl 5.6.1 (on
Unix at least)
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
Steve, I converted you VB to Perl and it works...
--
Simon Oliver
use strict;
use warnings;
use Win32::OLE;
my $oSQLApp = Win32::OLE->new('SQLDMO.Application');
my $oNames = $oSQLApp->ListAvailableSQLServers();
foreach my $i (1 .. $oNames->Count) {
print $oN
Just tried print $^E as well and got:
"Error creating Win32::ChangeNotify object: The directory name is
invalid at - line 11."
So I went and created a directory 'c:\winnt\chdir' and it went well.
What does $^E return for you?
--
Simon Oliver
use strict;
require Win32
nt\\chdir";
my $WatchSubTree = 0;
my $Events = FILE_NOTIFY_CHANGE_FILE_NAME;
my $notify = Win32::ChangeNotify->new($Path,$WatchSubTree,$Events);
die "Error creating Win32::ChangeNotify object" unless ref $notify;
$notify->reset;
$
7;s a Bencmarked script and some results follow. I don't have
5.6.0 on Win32 but I do have 5.6.0 and 5.6.1 on Linux and they give
simillar results so this looks like a problem with the ActiveState
compile of 5.6.1 not core Perl 5.6.1!
--
Simon Oliver
use Benchmark;
print "Perl: '$
There is no reference to such a function in the DBD::ODBC man page.
Why not use the DBI method 'tables' of if you need finer granularity use
'table_info' as this will provide a more portable script.
--
Simon Oliver
___
Perl-Win3
lah};
print $obj[0];
I guess this would require the creation of %obj and @obj and tieing thereof.
So ... is it possible to tie an object to both a hash and an array at the same time?
How? And what's the best way to create and tie the underlying hash
You are confused.
@array[$x,$y] returns and array of the two elements of @array with indexes $x an $y.
@array[$x..$y] returns and array of the elements between index $x and $y, includive.
--
Simon Oliver
Bennett Haselton wrote:
>
> Presumably affects all versions of perl -- but how c
Just use $ENV{username} within your script.
--
Simon Oliver
Björn Göhringer wrote:
>
> we want to include the environment variable "username" in an html page
> so we can start different actions depending on which user is logged in
> and accesses the page. so when i go t
Hey Lee,
Are you talking about Editing the PDF to format it ?..
- Olly
--
From: Lee Goddard [mailto:[EMAIL PROTECTED]]
Subject: Text flow in PDF
I know about Formatting Object and don't have time
to set up the servers - is there another way to flow
text in a PDF do
I think the problem was that you were using a POST and amazon was expecting
a GET.
--
Simon
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
tpub\scripts\databasetest.cgi
> line 4.
>
> Thanking You
> Prasad PVK
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
--
Simon Oliver
;` to reinitialize the file.
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
in32::ODBC($dsn);
--
Simon Oliver
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.activestate.com/mailman/listinfo/perl-win32-users
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://li
Look at the RFC on SMTP - it tells you all the commands you need to know
to communicate with an SMTP server.
You will also need to do a DNS lookup and check the MX record for the
specified mail domain - the MX record will give you the preffered
mailhost for the specified domain and that is whe
It works for me. I've added a bit of error checking - let me know what
the error is:
#!perl
use strict;
use warnings;
use Win32::OLE qw(in);
my $hostname = $ENV{COMPUTERNAME};
my $username = 'Administrator';
my $user = Win32::OLE->GetObject("WinNT://$hostname/$username,User")
or die Win32
What do you want to do, send or receive mail? What is your application?
There are many tools out there but here a some I have used:
To send mail look at Mail::Sender
ppm install Mail-Sender --location=http://Jenda.Krynicky.cz/perl
To receive mail look at Mail::POP3Client
ppm install Mail
58 matches
Mail list logo
