i would like to do a pattern match where the thing to be matched is a
$VARIABLE, not a previously known value that could otherwise be simply
'hard-coded' into the regex (as most regex users do). I need to do
something more dynamic than that.
so i assign the regex program line to a scalar, then
more things to search for and learn about, will give you more insights;
ghostscript - converts text to various image formats (platform independent -
based on postscript fonts for 'rendering') file formats supported include
tiff.
pdfwriter - could be possibly accessed using windows (a windows
There is a document management software that OCR's incoming documents.
if a commercial document management software does the OCR'ing, as you've
stated above, somewhere in this workflow you will see that an output of the
scanning stage will be a *.tif file. it is that *.tif file that is used as
can anyone please explain why when I am in the subroutine,
and I attempt to print a variable that's been declared and assigned a value
in the main package - why I am unable to print the value of the main
package's variable (despite that I am using the fully qualified variable
name)?
is this my
please forgive my ignorance, but what exactly is the function called?
Ive tried to search the net for perl and and cant seem to find
anything about this?
-Original Message-
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com]
while () {#line1
print; #line2
}
I read one may create a 'filter' by running the above as;
prog.pl file_contents_to_send_to_prog_pl.txt
I know this is using a couple of 'implied' variables, as clearly no direct
variable names are being used here.
But so that
I have a simple 10 line ascii text file:
line1CRLF
line2CRLF
.
line10CRLF
where CRLF is really two bytes (hex 0d)(hex0a).
I use IO::Socket as basis for a client program.
my program opens the above referenced file (for read), then reads each line
of the file, then sends each
forgive my naivety here but ive never had to use Unicode before.
I learned many years ago how to open a simple ascii file using perls open.
open (IN, 'infile.txt');
then read records out of the ascii file.
while ($rec = IN) {
print $rec;
}
but today I
this is on windows of course.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
these ENV vars would not exist?
_
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Greg
Aiken
Sent: Monday, March 30, 2009 11:58 AM
To: perl-win32-users@listserv.activestate.com
Subject: what is the most robust
$eight_dot_three = $ENV{'temp'}; #on my system return value is 8.3
truncated directory paths
question 1:
is there some setting in the registry that controls how env var paths are to
be stored and returned? specifically in the old 8.3 truncated ~ version, or
the newer win32 full paths?
I seem to be experiencing inconsistency when I invoke;
$user_input = STDIN;
in some programs the behavior is as expected. at that point in the program
I type in some input from keyboard then the moment I press the 'enter' key,
the program flow returns back to the executing Perl program.
method 1 (below) does work to receive a response from a server. but
requires I know in advance the number of bytes to receive.
I am wondering if something like method 2 may be used in the case of where
one does NOT know in advance how many bytes the server will be sending. ive
attempted to
given:
a. that its generally considered to be 'bad form' to use global variables
inside of sub-routines.
b. that I need to write a recursive sub-routine to solve a mathematical
problem.
the sub-routine will recursively call itself until the 'answer' is derived.
when the innermost call
);
return;
end
}
_
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Greg
Aiken
Sent: Thursday, May 21, 2009 2:02 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: question
With all of this recent discussion about MinGW, I thought I would ask a
question.
To start off by stating that I'm a relative Perl newbie here. I have no
previous experience with C++, nor of using MinGW.
But from what I've read, if one has ActivePerl 'properly installed,
configureated and
Ive seen, what I assume is, a ppm version 4 'ppm' file.
I understand clearly what 'Require name=' or 'Dependency name=' means. I
think version 3 ppm files use the 'Dependency' tag, and the version 4 ppm
files now use the 'Require' tag.
As I've not previously seen the 'Provide name=' tag
I have two computers. one is XP pro, the other XP home. likely there are
some 'non-standard' softwares installed to the xp home system (this is not
my own pc, so im less familiar with the variety of software installed to
it).
on both pcs, the 'c:\documents and settings\user\sendto' folder
other things to experiment with;
a. if the file may be successfully renamed, this implies its not being held
open (clunky solution, as would require you to rename once, then again to
bring it back to its original filename - but low tech), or
b. sysinternals has a utility called 'handle.exe' that
' module for Win32 x86 Perl version
5.8
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Greg
Aiken
Sent: Monday, October 18, 2010 15:53
To: perl-win32-users@listserv.activestate.com
Subject: looking for amine's 'MemMap
...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Greg
Aiken
Sent: Monday, October 18, 2010 3:36 PM
To: david.wag...@fedex.com; perl-win32-users@listserv.activestate.com
Subject: RE: looking for amine's 'MemMap' module for Win32 x86 Perl version
5.8
forgive my ignorance here, but I thought single quoted, or apostrophized
[however you call this character] (') text strings were supposed to be
interpreted by perl in an unaltered manner.
sample code, indicating how to reference a named pipe in the Win32::Pipe
module, shows something like
new($Name [, $Timeout [, $Type [, $Permissions ] ] )
Creates a named pipe if used in server context or a connection to the
specified named pipe if used in client context.
$Type can be consist of one value logically ORed from both tables:
Pipe Types:
PIPE_TYPE_MESSAGE
Data will move
when I run this simple client program
use strict;
use warnings;
use Win32::Pipe;
my $Data;
Win32::Pipe::CallNamedPipe(.\\Pipe\\EPICIPCDPLX, 3, $Data);
print data read from epic = $Data\n;
I get this error;
Can't locate auto/Win32/Pipe/CallNamedPi.al in @INC (@INC contains:
if one dumps a windows registry section using regedit (to *.reg format)
the reg_sz values are listed in the following format (heres a code fragment)
\\DosDevices\\E:=hex:5c,00,3f,00,3f,00,5c,00,53,00,43,00,53,00,49,00,23,00
,\
values to
ascii value?
Dude! This one is really easy:
print hex(ff); # 255!
so @result = map{ hex } @source;
Mwa ha ha!
On Tue, Nov 23, 2010 at 3:44 PM, Greg Aiken gai...@visioninfosoft.com
wrote:
if one dumps a windows registry section using regedit (to *.reg format)
the reg_sz
im wanting to write a simple perl 'filter' program in windows.
I basically took the base code found here.
http://www.techrepublic.com/blog/programming-and-development/simple-filters-
in-perl-ruby-and-bourne-shell/3481
the sample here is simple, convert upper case single byte ascii chars
if you are not in control of the base sql query, then disregard this
comment...
however if you are in control of the sql query that executes to oracle, you
might want to see how oracles 'connect by' function might be able to help
you handle the hierarchical nature of the relationship. perhaps a
other ideas:
ocr the page with an app that saves not only the ascii text, but each words
x,y position within the page (position info will tell if field is empty or
data)
http://code.google.com/p/keenerview/wiki/keenerocr
a gui tool that helps one investigate the inner structure of a pdf (again,
given how smart perl is, I was thinking there must be a function within perl
whereby if one does a pattern match against a scaler, that in addition to
having regex being able to return such built in vars as: $` (what preceeds
the match), $' (what follows the match), $1, etc.
is there a built
when I run PPM and indicate to install 'Email-Sender', magical things begin
to happen. then I get:
Installing 3 packages failed
ERROR: File conflict for
'C:/Perl/html/site/lib/Net/SMTP/Server/Client.html'.
The package Net-SMTP-Server has already installed a file that package
I need to create a scientific plot in 2D of simple X,Y point data. I found
what I feel is one of the most amazing Perl modules for such task. PDL
(Perl Data Language) has a simple windows install that requires installing
perhaps a total of 5 modules.
I had no trouble installing from an internet
...@listserv.activestate.com] On Behalf Of Greg
Aiken
Sent: Thursday, June 30, 2011 12:28 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: most powerful and amazing PDL + PGPLOT + GSL + OpenGL
I need to create a scientific plot in 2D of simple X,Y point data. I found
what I feel is one of the most amazing
in light of the fact that most recent Intel processors offer 'multiple'
cores...
if one had a problem to solve that could be broken down to serial vs
'parallel' processes
1. is there a way using Perl, where one could intentionally take advantage
of, and explicitly solve a problem by using this
in pdf files evidently there are two different ways one may specify the
'length' operator
sometimes one sees;
\Length
while at other times, the letter L is sufficient;
\L
i am wanting to do a pattern match for a line of data in a pdf file where i
am looking to match EITHER \L or \Length
is
hello all,
i read how one may include 's' at end of a pattern match to essentially
redefine '.' to include the 'newline character'.
today i found a code fragment whereby someone presents how they extract
flate encoded streams from pdf files using a regex whereby he is using the
's' option.
the
i would submit the problem is not perlapp, but rather the permissions on
the machine where you are running this at. try either or both:
launch all of this from an 'elevated to run as admin' cmd window (eg; its
not enough to have a windows login in windows vista, or higher, thats admin
- you
im t rying to install a perl module from this activestate repository url
page (
http://code.activestate.com/ppm/WebService-Dropbox/http://code.activestate.com/ppm/Test-TCP/
)
it states... ultra easy to install, merely type 'ppm install Test-TCP'
expanding that instruction with the [+] at right
i guess its finally time for me to upgrade my perl (i need a module that
doesnt work with my currently installed version of perl), but given that
ive invested hours and hours to get my current perl environment to work and
have lots of production programs i dont presently have time to immediately
the original file content should be before the create
table code is executed, this would also help me to better understand what
needs to be in a dbd-anydata 'Tab' delimited file so that thismodule can
properly work with the file.
thanks in advance,
greg aiken
use DBI;
use DBD::AnyData;
my
i am using dbd-anydata v0.09 with activeperl 5.8.8 build 820 (and dbi
v1.609)
i have 2 'input' files 'Tab' delimited. one 'field' of these 2 input files
may be used to 'join' the two tables.
using the notes found in cpan.org for this module, im 'simulating' a join
by basically;
iterating
i noticed when my program ran in a cmd window and that window was not the
'active' window, the program would bomb at inconsistent times.
as it was my lunch time, and i didnt have to do 'other work', i ran the
exact same program again - but this time left the cmd window as the
top-most 'active'
dear win32 perl users, ive never actually known how to 'modfiy' a file
using perl on win32. up till now, ive always read file1, found the data i
intended to change, and have always created a new file 2 containing the
changes. if i wanted to 'simulate' changing file1, when done i could
rename
hello perl users, today i am struggling to better understand what the
underlying issue is here.
my employer uses a web based CMS system called 'salesforce.com'.
using a web browser, i log into this site, i then use its web interface
and eventually display a 'customer record' web page in my
i am using IO::File so that i can use the seekable feature to set the
file pointer position.
$OUT_BINARY = new IO::File test.file;
binmode ($OUT_BINARY)
if i execute this, the write works:
print $OUT_BINARY $data;
what i want to do (for the sake of pointing out the problem) is to
the gui dialog box error message is:
The procedure entry point Perl_hv_common could not be located in the
dynamic link library perl58.dll
and the command line window shows:
D:\perlsrc\cairocairo.pl
Can't load 'C:/Perl/site/lib/auto/Cairo/Cairo.dll' for module Cairo:load_file:
The specified
i just ran across a perl recursion example that i am trying to understand...
(url =
http://www.shlomifish.org/lecture/Perl/Newbies/lecture2/functions/recursion.html
)
sub mysplit
{
my ($total, $num_elems, @accum) = @_;
if ($num_elems == 1)
{
push @accum, $total;
duh... thanks tons!
On Mon, Nov 26, 2012 at 8:37 AM, Tobias Hoellrich thoel...@adobe.comwrote:
*From:* perl-win32-users-boun...@listserv.activestate.com [
mailto:perl-win32-users-boun...@listserv.activestate.comperl-win32-users-boun...@listserv.activestate.com]
*On Behalf Of *Greg Aiken
#if one desires to pass a scalar reference into a sub-routine,
#the easiest way to assign a local scalar to the contents of the scalar
reference is...
subroutine(\$scalar);
sub subroutine {
my $subroutine_scalar = ${$_[0]}; #note you need the {} brackets, or
this doesn't work!
print
ive used the sample/simple lwpget.pl sample script (thats found in numerous
place on the internet, which uses LWP package).
if the url requested is 'static content', the page is received in its
full/complete content.
if however, the url requested is dynamic content (that normally requires
50 matches
Mail list logo