ways that are more-or-less equivalent and then there
are ways that only a veteran of several obfuscated perl contests
could appreciate.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl
] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
of the hash.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
column.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
to maintain your code.
Unnecessary fancy is rarely appreciated by other than the party of
the first part OTOH, simplistic elegance is widely admired.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
didn't build Publisher around a COM
(i.e. OLE) interface. You could always just use the OLE Browser program
that is included in all semi-recent versions of perl and scan
all your installed OLE interfaces/Controls to see if Publisher is among
them.
[EMAIL PROTECTED] Carl Jolley
All opinions
::35 Difference : 0
init_time : 17-jul-03:07::41 final time : 17-jul-03:08::33 Difference : 0
You got those results due to the leading numeric portion of the
strings. If you want to do date arithmetic then one solution is to
use either Date::Calc or Date::Manip modules.
[EMAIL PROTECTED] Carl
problems than it solves.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
function can add or delete one or more elements to the start,
end, or at any arbitrary point in an array.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL
the match to work correctly.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
On Fri, 26 Sep 2003 [EMAIL PROTECTED] wrote:
Hai,
can any one tell how to pick up a particular pattern of files into that
array...
Eg:- files with extension .pl or .cfg
@selected=grep{ /\.(?:pl|cfg)$/ } *.*;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own
PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
= ;}
$prox-Close();
All your '\' strings need to be changed to '\\'.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
} field. It had to be otherwise the match would
have failed. The empty string following the last real character then
allowed the (.*) to also match.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
many hits on this filter, but finally did this morning:
I find that using [^a-z]+ as a letter seperator is more effective,
especially when spammers use such text as V~ I~ A~ G~ R~ A
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
getting this date?
stat should be fine : my $mtime = (stat $path)[9];
And then to convert the $mtime to something useful, give it to
localtime(), e.g.
@date_fields=localtime($mtime);
OR
$The_last_mod_time=scalar localtime($mtime);
[EMAIL PROTECTED] Carl Jolley
All opinions are my
,$mon,$dom);
}
That's probably because the files in @allfiles are not in your current
directory. Either prepend the directory to the front of each file
you stat or chdir to the directory.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own
is not the issue, the
requirement is that it be in the current directory. If you cd'ed to the
script's folder then you should be OK but if you did something like:
perl scriptfolder\\script.pl
then it won't be.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my
was invented for.
Otherwise if you don't want to use the quoting functions then at least do:
= '' . $artist[$counter][0] . '' . ;\n;
However, that too will produce a run-time error unless
$artist[$counter][0] is defined and not null.
[EMAIL PROTECTED] Carl Jolley
All opinions are my
is that all 'use' statement get performed at
compile time therefore whether or not one executes a use
statement can't be conditional. But a require and a call
of a package's EXPORT method can be conditional.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those
as a decimal number. You
would have probably gotten really frustrated when you suddenly found the
value 8 amoung your data.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users
something like:
sub matched{
return $mystring=~/^-{1,2}[mevgn]*/;
}
I, personally would think that just using the match directly in an if
statement would be cleaner, e.g.
if($mystring=~/^-{1,2}[mevgn]*/) { .
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily
)
for use as the hash keys and, of course on any value used to index a
hash key/value.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED
the the original coder wanted to match the
0 length string after the first character and before the last character
in the string ''. A better pattern all around would be ([^]+).
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
of the current
year.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
mins,
$dsec secs;
# For testing purposes only.
#dref(0,\%os_info);
#exit;
}
return (%os_info);
}
-Original Message-
From: Carl Jolley [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 28, 2003 4:15 PM
To: Jim Lancaster
Cc: [EMAIL PROTECTED
that changing your unlink code may do the trick, e.g.
unline $logdir/$file;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
perl -p -i.bak -e s/PNRef(.*)\/PNRef/$1/g result_sale.tmp jiri.txt
Does not work
Any ideas?
Instead try:
perl -n -e print $1 if /PNRef(.*)\/PNRefs result_sale.tmp jiri.txt
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
script
called by the web server. You should not mess with the STDOUT filehandle
usless you use it to send output back to the browser. I suggest you
use system() to call the embedded scripts. Use of backquotes messes
with STDOUT.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own
On Wed, 27 Aug 2003, Wenjie Wang wrote:
system copy c:\a.txt d:\a.txt;
This won't work due to unescaped backslashes in a double quoted string.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
method for the object. If you simply
want to release all win_list objects at the time you exit your
script then code in an END block could perform this function.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
quotes.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
anyone know how to start a process, on a Win32 platform without
hanging the perl process (like system) or never returning (like exec) ?
I thing you should use single quotes for $ProcExe or if you
want or need to use double quotes, escape the backslases with
backslashes.
[EMAIL PROTECTED] Carl
On Sun, 24 Aug 2003, [iso-8859-9] [e]agLØrT wrote:
hi..
just got, i can change the options with CHMOD. so, the script will be not
executed and not read, can't i?
Sure, but what use is a write-only script?
Perl has to read it to interpret it.
[EMAIL PROTECTED] Carl Jolley
All
two nested loops
as:
foreach $key (sort keys %allhash) {
...
...
...
}
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED
then
the appropriate way with a web server is to require the user
to enter a password and do basic authenication. Note they will
only have to enter the password the first time they access the
page in their current browser session.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily
is less than or equal to 10 bytes. If that is the
aways the case, then you don't need a loop to read/write more than
one time.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32
with:
Content-Type: text/html. If on the other hand you are trying to
strip off all the header information up through the end-of-headers
then an appropriate substiturion operator would be:
$got_gif=~s/^.*\n\n/s;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily
the elapsed time to complete
the memory allocation.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
to be reference only once, when you read the whole file into it.
And as an aside, what does the code: $st-bind_param(2, ARKIV);
accomplish when the state of the ARKIV filehandle at that point is open
and at eof()?
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily
the ending of that line. Or, for that matter why you would want to replace
the \r with \r\n unless you were trying to create a double spaced
version of the file. I suspect you were intending to instead do:
s/\r?\n/\r\n/;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily
instead of reading all of them at
once.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com
them. Note that
each number with a problem is the the last one on its line, i.e. you are
not using 27 you are using the value of 27\n. Note for example in your
output 27 occurs twice. This is not possible for a hash key. But you have
two separate hash keys, 27 and 27\n.
[EMAIL PROTECTED] Carl
of $sender=new Mail::Sender.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
In the absence of any code my guess would be something to do with
premissions.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED
help me!
The path does control where perl looks for libraries except that the
current directory is always searched for libraries. It sounds like
you need to look at the 'use lib' pragma.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
defining an END block with your close of excel code there.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
are running under IIS, what is your cd set to? Try explicitly
setting the cd to an absolute path via the chdir function.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users
On Fri, 18 Jul 2003, Ted S. wrote:
On 18 Jul 2003, Carl Jolley wrote in perl:
On Thu, 17 Jul 2003, Ted S. wrote:
On 17 Jul 2003, Tobias Hoellrich wrote in perl:
my @t=(08:00, 23:59, 00:00, aa:00, 24:00, 00:01,
8:00, 08.00, 36:12, 08:61 ); foreach(@t) {
unless(/^(\d{2}):(\d{2
() and then in your loop, increment it
by 24*3600 before using it as a parameter to localtime.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED
unexpectedly (outside the problems that I have
because I run it under an inferior O/S).
Thanks again,
LarryD
Note that (\s*[0-9]*) matches the null string.
Try again with (\s*[0-9]+).
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
before actually die'ing?
Have you tried to define a $SIG{DIE} subroutine?
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe
a single line, e.g.
while(FH) {
and then when you find a match you can do: $second_line=FH;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED
;
}
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
-{PrintArea};) then by use of a regex
you can tretieve the value of the last row. You can't then bump the
row value by one so the print area contains the new row. Then you
can add your info to the new row.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my
doing this... but that works?
Have you considered the use vars pragma?
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
and also
lower case a copy of the content and do your index on the copy.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
not _require_ escaping.
Of course any character CAN be escaped. So the ! will work in
either case.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED
On Fri, 4 Jul 2003, M Ajmal wrote:
Hi,
I'm parsing a file and want to eliminate all lines
that start with Test and end with PASS!. I'm
trying to do the following:
/^Test.+PASS!$/
but it says no patterns match!
Some help please.
Show more code, please.
[EMAIL PROTECTED] Carl
in your data:
print Got you.\n if 'ABC' =~ /\Q$myLine\E/i;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
ways to make your
code run faster on your current computer.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
=' ' if $seen{$rfamily}++;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
? Anyone know how to solve this problem, please
help me.
My WAG is that your problem is with your code but since you didn't
show any code, its difficult to say for sure.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
=~ tr/$perm//;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
.
The terminal $ in a regex will match either the end of the string OR
the \n at the end of a string.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL
?
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Jolley
All opinions are my own and not necessarily those of my employer
I'd do it like this:
while($answer !~ /^MSD\d$/) {
print ask for answer\n;
chomp($answer=STDIN);
}
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
some code.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
= xlDescending,
Key3 = $SortOrd3,
Order3 = xlAscending,
});
/code
Yhe OP's code was missing:
use Win32::OLE::Const 'Microsoft Excel';
And yet he used the xl... constants. for descedning, etc.
[EMAIL PROTECTED] Carl Jolley
All
I should use something like this:
@list= split (' ', $file), but it doesn't work, it returns file name only...
So, could someone help me?
After: @list=FILE do:
foreach (@list) {
chomp;
$_=(split(/ /,$_))[3];
}
[EMAIL PROTECTED] Carl Jolley
All opinions are my own
again for helping me.
Could it possibly be that perlscript doesn't run on the server?
If perlscript isn't installed on the client, it won't work.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
character
can be used to delimit text.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman
it and also provides a hook
into it.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
.
Another way of dealing with a file that has br instead of linefeeds
is to do: $\=br before the file is opened, however that won't work
if any BR tags are used.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
=~s/br/\n/gi;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
with a $ regex
metacharacter, would.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com
:
($extension)=$path=~/\.(\w{3})$/;
If the extention can be of arbirtrary length then you could use
($extension)=$path=~/\.(\w+)$/;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl
in advance
Check your capitalization carefully. It's 'use' and Net::FTP.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe
send
a hidden form field with a page-number value.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
its name.
$Sheet-{Name}=$label;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman
are only checking for one instance of your regex per input line.
I suggest you change your code from an 'if' to:
while(/wilma\b/g) {
You should get 6 matches on your input file not seven.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
could try:
if($file !~ /\./) or better yet try:
print file $file has no dot\n unless $file=~tr/././;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL
, by this i mean that it actually exists on a server??
Just use:
$ENV{REQUEST_METHOD}
The CGI module isn't used to retrieve enviromental variables. The
environmental variables are in the %ENV hash.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my
that the hash assignment is done
only when the regex matches. However the regex is pretty sloppy.
Note tbe following lines all will match:
?,*
,
,
#,#
screwed,eval {`format drive C: \\V:x \\U`}
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
me out please?
Try this:
$Sheet=$book-WorkSheets-Add;
$_=$book-WorkSheets-{Count};
$Sheet-Move(After=$book-WorkSheets{$_});
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32
, you could call log_debug like:
log_debug(start, number of param = , scalar(@param)); and
the code in log_debug might look like:
sub log_debug{
my($info)=(caller)[3] . . $_[0] . $[1] . \n;
..
..
}
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those
then their names could
be provided as multiple arguments via the @ARGV array. Once the set of
file names are provided the loop could open, read each one and create a
corresponing output file for each file that it changes.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own
]\d{4}|104[0-7]\d{3}|
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman
a value of = 0.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
it.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
On Fri, 31 Jan 2003, Andreas.Kamentz wrote:
I'd like to supplement the suggestions that came from all sides with a little
subroutine which always worked for me determining whether the scalar is a number
(not only integer) and returning the number if it is one. Once having the $res
number
$Key. Recall that the items in
a hash are simply the key/value pairs. When you are printing out
the items in the hash you are simply printing the first key, first
value, second key, second value, etc.. The fact that you named
the iteration variable $Key means nothing.
[EMAIL PROTECTED] Carl
that it is a unformatted text
document.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman
match with the i flag then either use the uc or lc functions on
both items, e.g. if (lc($m1) eq lc($t1)) {
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL
the appropriate
syntax in whith each is used.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman
your code when ($var = 0). I think you may be suprised to discover
that the number 0 is a string rather than an integer.
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
k
___
Perl-Win32-Users
as being an
integer :-)
But 0 will be reported to be a string!
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http
1 - 100 of 349 matches
Mail list logo