ive seen this be done with openoffice in command line mode, i dont know the
exact syntax but it should be easy to find out.
at that point all your perl script would need to do is loop the the file
list and do a system() call to the openoffice program that does the
conversion.
this is hows its don
First print your Excel sheet to PDF, this shouldn't be too difficult as long as
the Excel file is saved exactly the way you want it printed ...
Then convert the PDF files to JPG using ImageMagick.
On 06/20/2011 09:57 PM, andrewmchor...@cox.net wrote:
Hello
I am not an expert in perl and so bef
On 21/06/2011 15:01, Bob McConnell wrote:
From: Paul Johnson
On Tue, Jun 21, 2011 at 05:57:22AM -0700, Beware wrote:
Hi to all,
First of all, sorry for the late of my answer.
Thank for all your sentence.
Here's my solution (for now) :
for my $w (@keywords)
{
if ( /\b$w\b/ a
On Jun 20, 2011 3:59 PM, wrote:
>
> Hello
>
> I am not an expert in perl and so before I propose that a particular
script be written I would likek to get an idea as to how hard the task would
be.
>
> We have a large number (in my opinion) of excel spreadsheets that need to
be concerted to jpeg for
On Tue, Jun 21, 2011 at 10:01:17AM -0400, Bob McConnell wrote:
> From: Paul Johnson
>
> > On Tue, Jun 21, 2011 at 05:57:22AM -0700, Beware wrote:
> >
> > > Hi to all,
> >>
> >> First of all, sorry for the late of my answer.
> >> Thank for all your sentence.
> >>
> >> Here's my solution (for now
Here is some VBA code to get you started. It will run in an Excel spreadsheet.
It opens another spreadsheet, copies the active cell data, pastes that to
Paint, and saves the file as a jpg. I wrote it "on the fly", but it works.
For production use, I would change it so that one sheet in the c
From: Paul Johnson
> On Tue, Jun 21, 2011 at 05:57:22AM -0700, Beware wrote:
>
> > Hi to all,
>>
>> First of all, sorry for the late of my answer.
>> Thank for all your sentence.
>>
>> Here's my solution (for now) :
>>
>> for my $w (@keywords)
>> {
>> if ( /\b$w\b/ and !/\buc($w
On Tue, Jun 21, 2011 at 05:57:22AM -0700, Beware wrote:
> Hi to all,
>
> First of all, sorry for the late of my answer.
> Thank for all your sentence.
>
> Here's my solution (for now) :
>
> for my $w (@keywords)
> {
> if ( /\b$w\b/ and !/\buc($w)\b/ )
> {
> p
Hi to all,
First of all, sorry for the late of my answer.
Thank for all your sentence.
Here's my solution (for now) :
for my $w (@keywords)
{
if ( /\b$w\b/ and !/\buc($w)\b/ )
{
print "Keyword '$w' not uppercase line $.\n";
ajoute_erreur( 7, $. );
Hi Jorg,
a few comments on your code:
On Tue, 21 Jun 2011 15:06:23 +0800
"Jorg W." wrote:
> 2011/6/21 eventual :
> > Hi,
> > Looking at the script below, how do I write a range of 10 to 80 as
> > a regular expression. I tried [10 - 80] but it wont work.
>
>
> $ perl -le '$x=70; print "true" i
Hi eventual,
On Mon, 20 Jun 2011 23:38:04 -0700 (PDT)
eventual wrote:
> Hi,
> Looking at the script below, how do I write a range of 10 to 80 as a regular
> expression. I tried [10 - 80] but it wont work.
> Thanks
> # script ##
>
> #!/usr/bin/perl
>
> my $player_total_points =
On 11-06-21 03:52 AM, John W. Krahn wrote:
Why not just do it like this:
if ( $player_total_points >= 10 && $player_total_points <= 80 ) {
Agreed. Although Perl can switch between strings and numbers on the
fly, often it's better to treat numbers as numbers.
--
Just my 0.0002 million
eventual wrote:
Hi,
Hello,
Looking at the script below, how do I write a range of 10 to 80 as a regular
expression.
I tried [10 - 80] but it wont work.
Thanks
# script ##
#!/usr/bin/perl
my $player_total_points = 70;
if ( $player_total_points =~/^(10..80)$/ ){
print "y
revised to exclude matching number greater than 80
$player_total_points =~/^[1-7]\d$/ || $player_total_points =~/^80$/
2011/6/21 Dean Du
> $player_total_points =~/^[1-8]\d$/
>
>
> 2011/6/21 eventual
>
>> Hi,
>> Looking at the script below, how do I write a range of 10 to 80 as
>> a regular exp
2011/6/21 eventual :
> Hi,
> Looking at the script below, how do I write a range of 10 to 80 as a regular
> expression.
> I tried [10 - 80] but it wont work.
$ perl -le '$x=70; print "true" if grep {/^$x$/} 10 .. 80'
true
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional
15 matches
Mail list logo
