[28152] in Perl-Users-Digest
Perl-Users Digest, Issue: 9516 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jul 23 14:05:47 2006
Date: Sun, 23 Jul 2006 11:05:05 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 23 Jul 2006 Volume: 10 Number: 9516
Today's topics:
$# problem or bug <lrupnicki@yahoo.co.uk>
Re: $# problem or bug <daveandniki@ntlworld.com>
Re: $# problem or bug <klaus03@gmail.com>
Re: ASP.Net, PERL and File Uploading <mgarrish@gmail.com>
Capture a image on client machine pjsenthil@gmail.com
Re: Capture a image on client machine <mgarrish@gmail.com>
Re: Idiot Q: How to find index number of HASH match? <franzl.wisseworst@mailinator.net>
Re: Idiot Q: How to find index number of HASH match? <franzl.wisseworst@mailinator.net>
Re: Idiot Q: How to find index number of HASH match? <franzl.wisseworst@mailinator.net>
Re: Idiot Q: How to find index number of HASH match? <jurgenex@hotmail.com>
Re: Lingua::Han::PinYin and utf8 problem <hjp-usenet2@hjp.at>
Re: my VAR = EXPR if COND <joe@inwap.com>
Re: Need compress-zlib example for textfile into .gz <marc.bau@gmx.net>
Re: Need compress-zlib example for textfile into .gz <rvtol+news@isolution.nl>
Perl and Theory of languages (write a dot)sica(write an at sign)[polimetrica](write a dot)
Re: Perl and Theory of languages <tadmc@augustmail.com>
Re: Problem with Date::Manip <r.ted.byers@rogers.com>
Re: search and replace in a binary file <m@remove.this.part.rtij.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 23 Jul 2006 15:47:11 +0200
From: Leszek Rupnicki <lrupnicki@yahoo.co.uk>
Subject: $# problem or bug
Message-Id: <e9vuo0$677$1@nemesis.news.tpi.pl>
do {
local $# = '%f';
$x = 0.000001;
$sql = "Something $x something";
print $sql;
};
Result:
Something 1e-06 something
And should be:
Something 0.000001 something
Is this my fault or a bug?
I'm using perl v5.8.7
You may also like to check this:
$x = 0.000001;
print "$x";
do { local $# = "%.10f"; print "$x"; };
print "$x";
------------------------------
Date: Sun, 23 Jul 2006 16:09:33 +0200
From: "Dave" <daveandniki@ntlworld.com>
Subject: Re: $# problem or bug
Message-Id: <44c38325$0$884$ba4acef3@news.orange.fr>
"Leszek Rupnicki" <lrupnicki@yahoo.co.uk> wrote in message
news:e9vuo0$677$1@nemesis.news.tpi.pl...
> do {
> local $# = '%f';
> $x = 0.000001;
> $sql = "Something $x something";
> print $sql;
> };
>
> Result:
> Something 1e-06 something
>
> And should be:
> Something 0.000001 something
>
> Is this my fault or a bug?
> I'm using perl v5.8.7
>
> You may also like to check this:
> $x = 0.000001;
> print "$x";
> do { local $# = "%.10f"; print "$x"; };
> print "$x";
perldoc perlvar says 'The use of $# is deprecated', so even if this is
really a bug no-one is likely to be interested in fixing it. Use printf() to
achieve what you want.
------------------------------
Date: 23 Jul 2006 07:09:40 -0700
From: "Klaus" <klaus03@gmail.com>
Subject: Re: $# problem or bug
Message-Id: <1153663780.328830.327400@h48g2000cwc.googlegroups.com>
Leszek Rupnicki wrote:
> do {
> local $# = '%f';
> $x = 0.000001;
> $sql = "Something $x something";
> print $sql;
> };
>
> Result:
> Something 1e-06 something
I have got an additional warning, but otherwise (almost) the same
result:
Use of $# is deprecated
Something 1e-006 something
(I say "almost"
because I get "1e-006"
whereas you get "1e-06",
but I don't think that matters very much)
> And should be:
> Something 0.000001 something
I don't think it should for interpolated strings. However, if you print
$x directly as a number...
( see also "perlvar": $# The output format for printed numbers... )
...then you should get your expected result. Try:
do {
local $# = '%f';
$x = 0.000001;
print "Something ", $x, " something";
};
> I'm using perl v5.8.7
I am using perl v5.8.8
------------------------------
Date: 23 Jul 2006 05:41:54 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: ASP.Net, PERL and File Uploading
Message-Id: <1153658514.659701.181260@s13g2000cwa.googlegroups.com>
Mumia W. wrote:
> On 07/22/2006 07:19 PM, getmyemails2@yahoo.com wrote:
> > Hello All,
> >
> > I have an ASP.Net application and I need to upload files from a
> > pre-determined source. Although a standard HTML FileInput control will
> > allow a default "value" property, the control available in ASP.Net does
> > not.
> >
>
> In Perl, to create a file-upload control that has a default
> value, you can either write the HTML text directly, like so:
>
> print q{
> <p> Please enter your file name:
> <input type=3Dfile value=3D"myfile.val" >
> </p>
> };
>
> Or you can use CGI.pm's methods for creating them. See =A7
> "Creating a file upload field" in "perldoc CGI".
>
And have you ever tried doing this? Please run the following html
snippet which, unless you're using Opera, will show you you can't set a
default value:
<html>
<head>
<title></title>
</head>
<body>
<form>
<input type=3D"file" id=3D"thisFile" value=3D"c:/windows/system.ini" />
</form>
<script type=3D"text/javascript">
alert(document.getElementById("thisFile").value);
</script>
</body>
</html>
------------------------------
Date: 23 Jul 2006 01:30:31 -0700
From: pjsenthil@gmail.com
Subject: Capture a image on client machine
Message-Id: <1153643431.417031.107860@b28g2000cwb.googlegroups.com>
Mine is a Client -server Acrichitecture..The client will be viewing a
video..if interested he will capture a video frame. and he will store
on the server machine..and the corresponding path of the image will be
stored on the server and will be used for further editions...
Is is possible...If so ....How..
I am not able to understand how can it be achieved....as one friend has
told in the Usenet group i tried to use Gadwin print screen but i think
it can be possible ..if the image is created on server machine...
Pl help me in this regard...If Question is not clear...ask me ..i will
give further more details..
Regards
Senthilvelu
------------------------------
Date: 23 Jul 2006 05:52:36 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: Capture a image on client machine
Message-Id: <1153659156.489243.116310@i42g2000cwa.googlegroups.com>
pjsenthil@gmail.com wrote:
> Mine is a Client -server Acrichitecture..The client will be viewing a
> video..if interested he will capture a video frame. and he will store
> on the server machine..and the corresponding path of the image will be
> stored on the server and will be used for further editions...
>
>From a browser, you wouldn't be able to do it unless the person
captures the image, saves it and then uploads it through a form.
You could write a client-side application to do the work of capturing
the image and posting it back to the server, but that would of course
require the user to install your app. You could write such a beast in
Perl and compile it to an executable, but how it would work (i.e.,
capture the image) would would depend on what OS it's run on. And you'd
likely find yourself limited to a simple screen capture of the users
desktop (unless the video is running in full-screen mode, I suppose).
Matt
------------------------------
Date: Sun, 23 Jul 2006 10:50:05 +0200
From: Franzl Wisseworst <franzl.wisseworst@mailinator.net>
Subject: Re: Idiot Q: How to find index number of HASH match?
Message-Id: <e9ve3k$oq3$00$1@news.t-online.com>
> Tad McClellan wrote:
>
> [..]
>
> > while ( local $_ = each %$_ ) {
> > if ( exists $activities{$_} )
> > { print "<li>$activities{$_}</li> \n" }
> > else
> > { print "<li><a href=$_>$activities{$_}</a></li> \n" }
> > }
>
I managed to modify the above so it outputs what is needed. The above
example were comparing: ...
if ( exists $activities{$_} )
.. for some reason it made all entries into no-links.
while if instead I do: ...
if ( $current::page eq $_)
... it then works! I.e. links are links where they should be links and no
links are no links where there should be no links.
while ( local $_ = each %$_ ) {
if ( $current::page eq $_)
{ print "<li>$activities{$_}</li> \n" }
else
{ print "<li><a href=$_>$activities{$_}</a></li> \n" }
}
Many thanks for your help with the while-if-else construct.
------------------------------
Date: Sun, 23 Jul 2006 16:47:33 +0200
From: Franzl Wisseworst <franzl.wisseworst@mailinator.net>
Subject: Re: Idiot Q: How to find index number of HASH match?
Message-Id: <ea031r$pt6$02$1@news.t-online.com>
Jürgen Exner wrote:
> file names. You are asking for unnecessary difficulties if you do
I agree on the easy life part. If however one wants a true localisation
where page names should ideally relate to content for some reason, keyword
ranking included, then localised URL's are usually better.
But if your typical url is http://www.mapquest.com/maps/map.adp?ovi=1&mqma
p.x=300&mqmap.y=75&mapdata=%252bKZmeiIh6N%252bI
gpXRP3bylMaN0O4z8OOUkZWYe7NRH6ldDN96YFTIUmSH3Q6
OzE5XVqcuc5zb%252fY5wy1MZwTnT2pu%252bNMjOjsHjvN
lygTRMzqazPStrN%252f1YzA0oWEWLwkHdhVHeG9sG6cMrf
XNJKHY6fML4o6Nb0SeQm75ET9jAjKelrmqBCNta%252bsKC
9n8jslz%252fo188N4g3BvAJYuzx8J8r%252f1fPFWkPYg%
252bT9Su5KoQ9YpNSj%252bmo0h0aEK%252bofj3f6vCP
... then it makes no difference in terms of user experience.
But umlauts etc., I opt for replacing with English characters.
> %map-en-de = ('page1.html' => 'seite1.html',
> 'bla.html' => 'blau.thml',
Many thanks for the information.
------------------------------
Date: Sun, 23 Jul 2006 18:22:24 +0200
From: Franzl Wisseworst <franzl.wisseworst@mailinator.net>
Subject: Re: Idiot Q: How to find index number of HASH match?
Message-Id: <ea08jm$k5p$00$2@news.t-online.com>
Could anyone point me towards the right methods before I digress in all
directions? I should have done my homework first, but the problem is as
always too little time and too many ways of doing the same thing....
I have 2 separate hashes, the content within is used to construct a
navigation menu. This has already been solved with much help on this group.
I would like to make use of the data within the hashes for language
switching between web pages. Every page always has a mirror in a second
language, in other words, the structure and order always remains identical.
Instead of opting for a more sophisticated multi-dimensional hash array
method as disussed in previous posts of this string, I guess another and
possibly easier solution would be simply to copy the keys into a standard
array, and then use index numbers to identify the mirror pages of the other
language version.
For now I have something as follows:
use Tie::IxHash;
tie my %location_en, "Tie::IxHash";
tie my %location_de, "Tie::IxHash";
$current::page = $ENV{DOCUMENT_NAME} || 'undefined';
%location_en = ('page1.html' => 'page one',
'bla.html' => 'blabla',
'something.html' => 'Something');
%location_de = ('seite1.html' => 'Seite eins',
'blau.html' => 'Blau',
'ding.html' => 'Ding');
So to utilise the existing data, as opposed to maintain hashes and arrays
with partly duplicate data, I'd like to:
1) Copy the keys, i.e. the page URL's or filenames from %location_en into
an normal array where I can easier refer to them by index.
Exactly how would "page1.html", "bla.html" and "something.html" be placed
in a standard array named @location_en. A simply question I know...
2) Search the array for a possible match of the filename as already held in
the global $current::page variable and return its index number. In the
unlikely event no match is found, return a fixed string, e.g. "404.html".
3) Extract the string in %location_de that has the same index number as in
%location_en. But I guess this must be a too simple question....
In any case, thank you for any helpful pointers, especially regarding
question #1 and #2.
------------------------------
Date: Sun, 23 Jul 2006 17:12:12 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Idiot Q: How to find index number of HASH match?
Message-Id: <M5Owg.7460$V74.3725@trnddc08>
Franzl Wisseworst wrote:
> %location_en = ('page1.html' => 'page one',
> 'bla.html' => 'blabla',
> 'something.html' => 'Something');
>
> %location_de = ('seite1.html' => 'Seite eins',
> 'blau.html' => 'Blau',
> 'ding.html' => 'Ding');
>
> So to utilise the existing data, as opposed to maintain hashes and
> arrays with partly duplicate data, I'd like to:
>
> 1) Copy the keys, i.e. the page URL's or filenames from %location_en
> into an normal array where I can easier refer to them by index.
@normalarray = keys (%location_en);
Of course the sequence of the keys in @normalarray will be random for all
practical purposes.
If you want a defined sequence then use
@normalarray = ('page1.html', 'bla.html', 'something.html');
> Exactly how would "page1.html", "bla.html" and "something.html" be
> placed in a standard array named @location_en. A simply question I
> know...
@location_en = ('page1.html', 'bla.html', 'something.html');
> 2) Search the array for a possible match of the filename as already
> held in the global $current::page variable and return its index
> number. In the unlikely event no match is found, return a fixed
> string, e.g. "404.html".
AFAIK there's no smart way to do that. So a standard linear loop and you
even have to maintain the index yourself.
> 3) Extract the string in %location_de that has the same index number
> as in %location_en. But I guess this must be a too simple question....
The 'index' in a hash is more commonly called the key.
Therefore, if your 'index' into %location_en is "foobar" then just use
$location_de{foobar}
jue
------------------------------
Date: Sun, 23 Jul 2006 11:28:33 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Lingua::Han::PinYin and utf8 problem
Message-Id: <pan.2006.07.23.09.28.32.845114@hjp.at>
On Sun, 23 Jul 2006 05:59:57 +0000, corff wrote:
> Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
> : On Sat, 22 Jul 2006 09:26:19 +0000, corff wrote:
>
> : > my $h2p = new Lingua::Han::PinYin(format => 'utf8');
>
> : There doesn't seem to be any format parameter for
> : Lingua::Han::PinYin->new().
>
> Interesting. What prompts your assumption? I copied and pasted the
> Lingua::Han::PinYin-related stuff directly, AS IS, from its documentation,
> including the (format... ) parameter.
Then you have a different version than me. I downloaded the current
version (0.06) from CPAN yesterday, and neither the documentation nor
the source code mention a format parameter. See also
http://search.cpan.org/~fayland/Lingua-Han-PinYin-0.06/lib/Lingua/Han/PinYin.pm
> : > #print $h2p->han2pinyin("�"),"\n";
> : > #print $h2p->han2pinyin(chr(0x4e00)),"\n";
> : > #print $h2p->han2pinyin("$name"),"\n";
> : >
> : > Uncomment the first print statement, and it prints "yi" as last line,
> : > as expected.
>
> : Note that the String "�" is 3 characters long, not 1 (you have 'use
> : utf8' commented out).
>
> I am afraid this unwanted conversion took place when uploading the minimal
> script to the Usenet message (I am working in a text terminal which is not
> utf8).
Yes, but I allowed for that. Still, unless you put 'use utf8' or 'use
encoding ...' at the top of you script it will still be a string of
three single-byte-characters, not a string of one 3-byte-character.
> : That doesn't seem to have anything to do with scalars and literals.
> : Instead, han2pinyin seems to expect an utf-8-encoded string.
>
> : use Encode;
> : print $h2p->han2pinyin(encode('utf-8', $name)),"\n";
>
> I'll give it a try. Remains the question why the following two utf8-encoded
> statements trigger an error message.
>
> print $h2p->han2pinyin(chr(0x4e00)),"\n";
> print $h2p->han2pinyin("$name"),"\n";
These are not utf8-encoded from the point of view of a perl application.
UTF-8 is a variable width encoding: The character U+4E00 is encoded as
a three octet string "\x{e4}\x{b8}\x{80}". This seems to be what
han2pinyin expects. But you give it a string with a single character
"\x{4e00}". It tries to decode that from UTF-8 to perl's internal
representation and fails (This seems to be a bad design decision to me
- I would have used perl wide strings as input).
I really think that exposing the fact that the perl interpreter stores
wide strings internally as UTF-8 to the user by choosing names like
"is_utf8" has been a grave mistake. It makes it very difficult to talk
about things because if somebody talks about a "utf8 string" you never
know whether he means a wide string or a string containing octets of
utf-8 code.
hp
--
_ | Peter J. Holzer | > Wieso sollte man etwas erfinden was nicht
|_|_) | Sysadmin WSR | > ist?
| | | hjp@hjp.at | Was sonst wäre der Sinn des Erfindens?
__/ | http://www.hjp.at/ | -- P. Einstein u. V. Gringmuth in desd
------------------------------
Date: Sun, 23 Jul 2006 03:10:42 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: my VAR = EXPR if COND
Message-Id: <bvydnYePu4HR1l7ZnZ2dnUVZ_sadnZ2d@comcast.com>
grin.k1tt3n@gmail.com wrote:
> I just discovered the bug/feature of having a static variable if it
> initialized as:
>
> my $var = expr() if condition();
That's why I use
my $var = condition() ? expr() : undef;
so that the value of $var is always determinate.
-Joe
------------------------------
Date: Sun, 23 Jul 2006 14:56:58 +0200
From: "Marc Bauer" <marc.bau@gmx.net>
Subject: Re: Need compress-zlib example for textfile into .gz
Message-Id: <e9vrmr$9m9$02$1@news.t-online.com>
hi
so, for all interessed in this. here is the solution for the problem...
[gzip-file.pl]
# use module
use strict;
use warnings;
use Compress::Zlib;
# minimum specify "./" for current directory
my $tmpdir='./tmp';
my $outputdir='.';
my $inputfile="$tmpdir/test.txt";
my $outputfile="$outputdir/test.txt.gz";
open (INFILE, "<$inputfile") or die "Could not open $inputfile: $!\n";
binmode INFILE;
open (OUTFILE, ">$outputfile") or die "Could not open $outputfile: $!\n";
binmode OUTFILE;
my $gz = gzopen(\*OUTFILE, "w") or die "Cannot open $outputfile:
$gzerrno\n";
while (<INFILE>) {
$gz->gzwrite($_) or die "error writing: $gzerrno\n";
}
$gz->gzclose() == 0 or die "error closing $gzerrno\n";
close (INFILE);
close (OUTFILE);
Regards
Marc
------------------------------
Date: Sun, 23 Jul 2006 16:49:41 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Need compress-zlib example for textfile into .gz
Message-Id: <ea0a3d.1c0.1@news.isolution.nl>
Marc Bauer schreef:
> # minimum specify "./" for current directory
ITYM '.'
> open (INFILE, "<$inputfile") or die "Could not open $inputfile: $!\n";
I would make that:
open my $in_fh, '<', $in_name or die "open $in_name, stopped $!" ;
or if you don't like line numbers:
open my $in_fh, '<', $in_name or die "open $in_name: $!\n" ;
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sun, 23 Jul 2006 10:51:16 +0200
From: write a dot <"g(write a dot)sica(write an at sign)[polimetrica](write a dot)[org]">
Subject: Perl and Theory of languages
Message-Id: <44c33884$0$32150$4fafbaef@reader1.news.tin.it>
Dear All,
I'm writing to this list since am looking for a cooperation.
I'm working about the development of a mathematical theory of languages.
It defines a language as a set of elements which can be combined or
associated (see the PS for an example).
I'd like to cooperate with a computer scientist in order to define a
Perl package useful to create and to analyse a catalog of mathematical
languages.
This package should be placed in the public domain, freely accessible to
anyone who might be interested.
In the continuation of the message I send a sample function to include
in the package, useful to understand the difficulty and the commitment.
Please accept my sincere apologies for the trouble.
This is not a spam message or an activity with commercial or profit
purposes.
I hope someone can be interested.
Please feel free to contact me for any question.
Really many thanks.
All the best,
Nico Sica
http://www.polimetrica.com/polimetrica/view/people/Sica,_Giandomenico.html
PS
An example: consider the so-called computer language. To generate the
multiple programming languages, people started from combinations of
01010101, then have associated some of these combinations to commands in
natural language (e.g. PRINT, GO TO etc.), then they have combined these
new commands each other; then they have created new commands and
associated these new commands to the old ones and so on...repeating the
game.
This is a basic example of the simple theoretical mechanism.
FUNCTION 1
create_catalog_languages(n)
Description.
This function should create a txt file including a catalog of languages
with up to n elements.
Possible methodology.
I explain it through an example which aims to define a catalog of all
the languages with up to 3 elements.
At the beginning, we have an empty catalog.
So we take an element "a" and an element "b".
We've a couple "a", "b" and three possible options:
1) "a" is combined to "b"
2) "a" is associated to "b"
3) "a" is combined to "b" and "a" is associated to "b"
From these 3 options we can construct in our txt file 3 languages:
L1
Elements: a,b
Combinations: (a,b)
Associations: nothing
L2
Elements: a,b
Combinations: nothing
Associations: (a,b)
L3
Elements: a,b
Combinations: (a,b)
Associations: (a,b)
Now we've a catalog of languages with up to 2 elements.
To develop our catalog, we take the first language (L1) and an element "c".
We've two possible new couples: "a","c" and "b","c".
For each couple we've the previous three options:
"a","c":
1) "a" is combined to "c"
2) "a" is associated to "c"
3) "a" is combined to "c" and "a" is associated to "c"
"b","c":
1) "b" is combined to "c"
2) "b" is associated to "c"
3) "b" is combined to "c" and "b" is associated to "c"
From these 3+3 options we can construct 15 languages:
3 languages from the first 3 options.
3 languages from the second 3 options.
9 languages from the combination of the two different set of options
(taking one option from each set):
1,1; 1,2; 1,3; 2,1; 2,2; 2,3; 3,1; 3,2; 3,3.
I don't write here the list of 15 languages since it should be quite
intuitive.
Now we've to proceed in the same way also for L2 and L3 and then we've
completed our catalog of all the languages with up to 3 elements.
If we want to create a catalog of all the languages with up to n
elements, we've to iterate the same procedure.
------------------------------
Date: Sun, 23 Jul 2006 09:09:14 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Perl and Theory of languages
Message-Id: <slrnec70oa.lt3.tadmc@magna.augustmail.com>
write a dot <> wrote:
> This package should be placed in the public domain,
^^^^^^^^^^^^^
That is not a good idea at all.
You surrender *all* rights when you place it in the public domain,
including the right to demand (both kinds of) "free" access to it,
that modifications and derivatives also be open, etc...
This package should be licensed "open source"!
(Which is a whole lot different than "public domain".
Are you aware of the differences?
)
There is a newsgroup for discussing intellectual property issues:
misc.int-property
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 23 Jul 2006 04:57:14 -0700
From: "Ted" <r.ted.byers@rogers.com>
Subject: Re: Problem with Date::Manip
Message-Id: <1153655834.514702.194550@i42g2000cwa.googlegroups.com>
Paul Lalli wrote:
> Ted wrote:
>
> > I can confirm that changing my code to explicitly set the mode to
> > business mode gets all my code using DateCalc working as expected. So
> > it seems I hit a bug of some sort in DateCalc that results in
> > "business" not triggering business mode. Perhaps now a note to the
> > fellow who developed it is warranted?
>
> I'm still about 70% convinced there's something not being done
> correctly in the relevant configuration files, but I have no idea what
> needs to be done. Therefore, I'd say sure, email the author. Let us
> know if/how he replies.
>
I did email the author, but my email bounced. Ted
------------------------------
Date: Sun, 23 Jul 2006 12:44:07 +0200
From: Martijn Lievaart <m@remove.this.part.rtij.nl>
Subject: Re: search and replace in a binary file
Message-Id: <pan.2006.07.23.10.44.07.283198@remove.this.part.rtij.nl>
On Sat, 22 Jul 2006 15:15:35 -0400, Rafal Konopka wrote:
> Essentially, it all boils down to this: imagine I have to replace
> "Jon" with "Jonathan" and conversely "William" with "Billy" in a Word
> document? The straight-forward search and replace is not going to
> work, so how do I do it?
Either:
1) Open the document as a COM/.NET object, do a search and replace.
2) Reverse engineer the binary format of the file and figure out what else
has to change.
M4
--
Redundancy is a great way to introduce more single points of failure.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9516
***************************************
