How to restrict who may read my blog?
Perl web-programming
Hello Guest
  
  • Login
• Register…
• Start blog
  • Who, Where, When
• What is interesting here?
• Duels
  • Polls
• Avatars
• Interests
  • Cities and Countries
• Random blog
• Users search
  • Search
• Games
• Tests
• QAIX
  • Сообщества
• Talxy Chat
• Horoscope
• Online
 
Register!

QAIX > Perl web-programmingGo to page: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | next »

  Top users: 
  Recent blog posts: 
  They have birthday today: 
  Forums:   
  Discuss: 
  Recent forum topics: 
  Recent forum comments:
  Модератор:
Saturday, 13 February 2010
help me perl : sftp Vemulakonda Uday Bhaskar 18:28:02
 dear all

i have a code to tranfer file between two linux machines using
sftp

for that i used "use Net::SFTP", but it is giving error saying
"Can't locate Net.SFTP.pm in@INC
(@INC contains /usr/lib/perl5/5.6.­0/1386-Linux......) at shh3.pl
linux.."
how should i go and fix the problem

My code :
'

#!/usr/bin/perl -w

use strict;
use Net::SFTP;
my$sftp=undef;

eval
{

$SFTP=Net::SFTP->ne­w("192.168.255.214",­user=>"vishal",passw­ord=>"hamara");};

if($@)
{
print"connection failed ";
}
else
{
print "suuccessful";
}

$sftp->get("krishna­","rama");

#-END-


please help me in this regards

Regards

Uday

___________________­____________________­____________
Click below to experience Sooraj Barjatya's latest offering
'Main Prem Ki Diwani Hoon' starring Hrithik Roshan,
Abhishek Bachchan & Kareena Kapoor http://www.mpkdh.co­m
comment 4 answer | Add comment
Tuesday, 9 February 2010
ORA-01031 when trying to connect as sysdba. sqlplus works Gal Baras 18:27:33
 Hello,

I'm getting an ORA-01031 error when trying to use the ORA_SYSDBA or
ORA_SYSOPER modes.

When using sqlplus, I can use '/ as sysdba' and '/ as sysoper' as the same
UNIX user(s).

This is on HP-UX 11i, Oracle 9.20, perl 5.8.0, DBI 1.37 and DBD::Oracle
1.14.

Thanks,
Gal
comment 11 answers | Add comment
How to get Text::Iconv on Windows Steve Tolkin 18:24:56
 Summary:
XML::SAX::Writer depends on Text::Iconv but I have been
unable to install this on Windows XP
despite trying three different ways.

1. The perl CPAN Iconv distribution is missing iconv.h,
so install Text::Iconv via CPAN fails.

2. I tried running ppm to download
a precompiled Iconv, but got a failure in ppm.bat.
(This might be the easiest fix.)
The ActiveState directory says that Iconv has status FAIL.
But http://theoryx5.uwi­nnipeg.ca/ppmpackage­s/ has
Text-Iconv.ppd 19-Dec-2003 00:50 418
Unfortunately this is just the metadata
and I cannot find the actual precompiled module.

3. I tried compiling the gnu programs libiconv and gettext
and got different failures there.

Or, is there any way to turn off this dependency, or
a different module that is similar but which does not have this
dependency.

Please help!

Details:

I am trying to follow the suggestion Kip made below (thanks Kip)
to use XML::SAX::Writer, but this depends on Text::Iconv.

My environment:
I am running perl 5.8.0 and MS VC 98 compiler and tools.
Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 12.00.8168 for 80x86
My "shell" is just cmd.exe aka command prompt aka the plain old DOS box.

1. I try to install using: perl -MCPAN -e shell
When I say
install XML::SAX::Writer
everything is fine until it stops with:
---- Unsatisfied dependencies detected during
[R/RB/RBERJON/XML-SAX-Writer-0.44.
tar.gz] -----
Text::Iconv
Shall I follow them and prepend them to the queue

If I say yes it fails due to missing iconv.h, as follows
...
CPAN.pm: Going to build M/MP/MPIOTR/Text-Ic­onv-1.2.tar.gz

Checking if your kit is complete...
Looks good
Writing Makefile for Text::Iconv

Microsoft (R) Program Maintenance Utility Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

cp Iconv.pm blib\lib\Text\Iconv­.pm
AutoSplitting blib\lib\Text\Iconv­.pm (blib\lib\auto\Text­\Iconv)
C:\bin\perl.exe C:\Perl\lib\ExtUtil­s/xsubpp -typemap
C:\Perl\lib\ExtUti
ls\typemap -typemap typemap Iconv.xs > Iconv.xsc && C:\bin\perl.exe
-MExtUtils:
:Command -e mv Iconv.xsc Iconv.c
cl -c -nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE
-DNO_ST
RICT -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CON­TEXT -DPERL_IMPLICIT_SYS­
-DUSE_PERLIO
-DPERL_MSVCRT_READF­IX -MD -Zi -DNDEBUG -O1 -DVERSION=\"1.2\"
-DXS_VERSION=\"
1.2\" "-IC:\Perl\lib\CORE­" Iconv.c
Iconv.c
Iconv.xs(15) : fatal error C1083: Cannot open include file: 'iconv.h': No
such f
ile or directory
NMAKE : fatal error U1077: 'C:\WINDOWS\system3­2\cmd.exe' : return code '0x2'
Stop.
C:\perl\bin\nmake.E­XE -- NOT OK
Running make test
Can't test without successful make

2. Then I tried to get Iconv from the ppm shell
(which in this case is the ppm.bat file in my c:\perl\bin\).
But I hit this problem:
C:\TEMP>ppm
Can't locate XML/ValidatingEleme­nt.pm in @INC (@INC contains: c:/Perl/lib
c:/Per
l/site/lib .) at c:/Perl/site/lib/XM­L/PPD.pm line 8.
BEGIN failed--compilation­ aborted at c:/Perl/site/lib/XM­L/PPD.pm line 8.

It looks like it is off a level,
and/or my @INC needs to be modified. So I tried
cd \perl\site\lib\PPM
and then ran it again and got this error:

Can't locate object method "rvalidate" via package
"XML::PPMConfig::PP­MCONFIG" a
t c:/Perl/site/lib/PP­M.pm line 1620.

3. So I downloaded the gnu versions of libiconv and gettext and
followed the instructions in README.woe32 in libiconv and
successfully make libiconv using
nmake Makefile.msvc -NONLS=1
as stated in step 1.

Most of gettext compiled OK, but then it died,
whle trying to compile msgmerge.c (in gettest-tools/src/)­
I think because of a problem in obstack.h.
the make ending with this:

/out:msgfmt.exe
msgfmt.obj
write-mo.obj
write-java.obj
write-csharp.obj
write-resources.obj­
write-tcl.obj
write-qt.obj
plural-eval.obj
gettextsrc.lib
..\lib\gettextlib.l­ib
..\intl\intl.lib
c:\usr\lib\iconv.li­b
cl -I. -I.. -I..\libuniname -I..\lib -I..\intl
-I..\..\gettext-run­time\i
ntl -I..\windows -Ic:\usr\include -W1 -D_NDEBUG -O1 -DHAVE_CONFIG_H
-DLOCALEDIR
=\"c:\\usr\\share\\­locale\" -DLOCALE_ALIAS_PATH­=\"\"
-DGETTEXTJAR=\"c:\\­usr\\sha
re\\gettext\\gettex­t.jar\" -DLIBDIR=\"c:\\usr\­\lib\"
-DGETTEXTDATADIR=\"­c:\\usr\
\share\\gettext\" -DPROJECTSDIR=\"c:\­\usr\\share\\gettext­\\projects\"
-DINSTALLP
REFIX=\"c:\\usr\" -DINSTALLDIR=\"c:\\­usr\\bin\" -c -Tp msgmerge.c
Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 12.00.8168 for 80x86
Copyright (C) Microsoft Corp 1984-1998. All rights reserved.

msgmerge.c
msgmerge.c(413) : warning C4508: 'main' : function should return a value;
'void'
return type assumed
msgmerge.c(677) : error C2660: '_obstack_begin' : function does not take 5
param
eters
msgmerge.c(693) : error C2660: '_obstack_newchunk'­ : function does not take
2 pa
rameters
msgmerge.c(722) : error C2660: '_obstack_newchunk'­ : function does not take
2 pa
rameters
msgmerge.c(752) : error C2660: '_obstack_newchunk'­ : function does not take
2 pa
rameters
msgmerge.c(782) : error C2660: '_obstack_newchunk'­ : function does not take
2 pa
rameters
msgmerge.c(824) : error C2660: '_obstack_free' : function does not take 2
parame
ters
NMAKE : fatal error U1077: 'cl' : return code '0x2'
Stop.
NMAKE : fatal error U1077: 'C:\PROGRA~1\MICROS­~3\VC98\BIN\NMAKE.EX­E' :
return co
de '0x2'
Stop.
NMAKE : fatal error U1077: 'C:\PROGRA~1\MICROS­~3\VC98\BIN\NMAKE.EX­E' :
return co
de '0x2'
Stop.

But note that obstack.c did build succesfully.
(I do wonder why obstack.h is in the lib directory.)

Directory of C:\TEMP\gettext-0.1­4.1\gettext-tools\li­b

11/05/2002 11:41 AM 19,711 obstack.c
08/24/2003 10:05 AM 23,630 obstack.h
03/07/2004 12:48 AM 3,104 obstack.obj


Thanks-in-advance-a­gain-ly yours,
Steve

-----Original Message-----> From: Kip Hampton [mailto:khampton@totalcinema.com] > Sent: Sunday, March 07, 2004 3:07 AM> To: Tolkin, Steve> Cc: 'perl-xml@listserv.­ActiveState.com'> Subject: Re: Parsing a record oriented file into XML>
Tolkin, Steve wrote:>
<snip/>>
Kip Hampton's 2001 article "Writing SAX Drivers for Non-XML Data"> > _http://www.xml.com­/lpt/a/2001/09/19/sa­x-non-xml-data.html_­> > suggests a general technique, but there does not seem to be > a module > > that does this.>
Try XML::Generator::Per­lData (that generates SAX2 events from > Perl data > structures) and connect it up to any SAX2 Writer.>
For example, using PerlData's "Stream Style" processing:>
use XML::Generator::Per­lData;> use XML::SAX::Writer;>
my $writer = XML::SAX::Writer->n­ew();> my $generator = XML::Generator::Pel­Data->new( Handler =? $writer );>
open(FH, "your.wacky.file") || die "Nope: $!";>
$generator->parse_s­tarr();>
while (<FH>) {> # process and munge each line from the> # file into some perl data structure-->
my $hash_ref = process_record($_);­> $generator->parse_c­hunk( $hash_ref );> }>
$generator->parse_e­nd();>
close FH;>
That's it. Generator::PerlData­ also offers a ton of options > to control > how your data gets translated; check out the perldoc for details.>
Cheers,> -kip>
___________________­____________________­________
Perl-XML mailing list
Perl-XML@listserv.A­ctiveState.com
To unsubscribe: http://listserv.Act­iveState.com/mailman­/mysubs

comment 6 answers | Add comment
Thursday, 4 February 2010
Why do I encounter this error ? ORA-12705 : Cannot access NLS data files or invalid environment spec Guest 15:17:26
 Hello

I do not understand why I encounter this error :
ORA-12705 : Cannot access NLS data files or invalid environment
specified

My env is :
ORACLE_BASE=/app/or­acle
ORACLE_HOME=/app/or­acle/product/10.2.0/­enterprise64bit
ORACLE_SID=sidtest
NLS_LANG=AMERICAN_A­MERICA.WE8MSWIN1252
PATH=$PATH:$­ORACLE_­HOME/bin
LD_LIBRARY_PATH=/ap­p/oracle/product/10.­2.0/enterprise64bit/­lib
export ORACLE_BASE ORACLE_HOME ORACLE_SID NLS_LANG PATH
LD_LIBRARY_PATH

My Perl script is :
use DBI;
my $dbh = DBI->connect( 'dbi:Oracle:sidtest­', 'test', 'test', {
RaiseError => 1, AutoCommit => 0 } );
print $dbh->selectrow_arr­ay(qq{ SELECT 'Hello World from
DBI/DBD::Oracle' FROM DUAL }),"\n";
$dbh->disconnect();­

When I execute it, it fails with this error
DBI connect('sidtest','­test',...) failed: ORA-12705: Cannot access NLS
data files or invalid environment specified (DBD ERROR: OCISessionBegin)
at test2.pl line 3

If I unset NLS_LANG it works fine. Why setting NLS_LANG disturbs the
script ?
"Oracle strongly recommends that you set the NLS_LANG on the client "
when you read this link :
http://www.oracle.c­om/technology/tech/g­lobalization/htdocs/­nls_lang%20fa
q.htm#_Toc110410548­


My Perl config is : perl 5.8.8 on Solaris 10 with DBI 1.58 and
DBD::Oracle 1.19

Thanks for your explanation
Regards

Pascal


comment 2 answer | Add comment
Tuesday, 12 January 2010
Topic awaiting moderation clothing 11:56:48
Friday, 8 January 2010
Topic awaiting moderation 351166 09:02:08
Topic awaiting moderation 351100 09:00:23
Thursday, 10 December 2009
DBD-Oracle 1.22 make tests do not run on Solaris 10 James H. McCullars 11:51:19
 Hi, I'm having a problem with DBD-Oracle on Solaris 10 (see next
message) and thought that using the latest DBD-Oracle might
help. But when I run the make test, several tests error off with
messages like these:

make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Comman­d::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/01base...........­.....# Test loading DBI, DBD::Oracle and version
t/01base...........­.....ok
t/10general........­.....Can't locate object method "no_diag" via
package "Test::Builder" at t/nchar_test_lib.pl­ line 53.
Compilation failed in require at t/10general.t line 12.
# Looks like your test died before it could output anything.
t/10general........­.....dubious
Test returned status 255 (wstat 65280, 0xff00)
t/12impdata........­.....Can't locate object method "no_diag" via
package "Test::Builder" at t/nchar_test_lib.pl­ line 53.
Compilation failed in require at t/12impdata.t line 27.
# Looks like your test died before it could output anything.

Line 53 of t/nchar_test_lib looks like this:

$tb->no_diag(1);

It looks like no_diag is not defined anywhere maybe? This doesn't
happen when running make test with 1.20 or 1.21. Perl is 5.8.4, DBI is 1.607.

Jim McCullars
University of Alabama in Huntsville


comment 1 answer | Add comment
Thursday, 12 November 2009
Installing Perl Help Scott E Svendsen 01:09:27
 
I am currently running perl 5.6.0, I am trying to install 5.6.1 with the
-Dusethreads option enabled.

I have read the install file, and followed it to the letter, except using:
sh Configure -Dusethreads

Then I answer all the questions it gives me and says it is installed.
Except there is no indication it did anything. Doing a perl -v gives me
the same old version. Doign a search doesnt turn up any new 5.6.1
folders.

I need help please.

Thanks
Scott


comment 4 answer | Add comment
Tuesday, 3 November 2009
Questions related to DBI and DBD::Oracle Shikha Pandit 02:29:08
 Hello,

I am trying to connect to the oracle database through a perl script. I
have installed DBI module on my server.
I need to run my script on an App server and the database is on the other
server.
When I am running the test script which is
use DBI;
$dbh = DBI->connect( 'dbi:Oracle:dwhs01'­,
'username',
'password',
) || die "Database connection not made:
$DBI::errstr";

print "Connected to Database";

It gives me this error.
install_driver(Orac­le) failed: Can't locate DBD/Oracle.pm in @INC (@INC
contains: /usr/opt/perl5/lib/­5.8.2/aix-thread-mul­ti
/usr/opt/perl5/lib/­5.8.2
/usr/opt/perl5/lib/­site_perl/5.8.2/aix-­thread-multi
/usr/opt/perl5/lib/­site_perl/5.8.2 /usr/opt/perl5/lib/­site_perl .) at
(eval 3) line 3.
Perhaps the DBD::Oracle perl module hasn't been fully installed,
or perhaps the capitalisation of 'Oracle' isn't right.
Available drivers: DBM, ExampleP, File, Gofer, Proxy, Sponge.
at test.pl line 9

Please advice what all do I need to setup and install.

Looking forward for the reply.
Any inputs will be appeciated.


Thanks,
Shikha Pandit
WHS IT - Clinical Solutions
Phone: (847) 964-8709

WHS -> Walgreens Health Services
comment 7 answers | Add comment
Thursday, 10 September 2009
china sell wholesale versace t shirt guci clothing prada clothing burberryclothing wholesale2wd 04:05:53
 www.wholesale2wd.com­

nike shoes wholesale jordan shoes dunk shoes max shoes af1 shoes blazer shoes
D&G shoes ed hardy shoes dsquared shoes gucci shoes LV shoes timberland boots
ugg boots,cheap AF tshirt ed hardy tshirt CA tshirt D&G tshirt armani tshirt
polo tshirt versace tshirt ed hardy dress ca dress AF vest on sale,wholesale
coach sandals burberry sandals fendi sandals D&G sandals lv sandals chanel
sandals ugg sandals belle sandas versace sandals prada sandalsand so on.sell
NY cap LV cap ed hardy cap CA cap set cap,hot sell ed hardy bikini polo bikini
ca bikini AF bikini LV bikini Chanel bikini burberry bikini D&G bikini dior
sunglasses chanel sunglasses ed hardy sunglasses CA sunglasses versace
sunglasses D&G sunglasses gucci sunglasses and so on,cheap evisu jeans G-Star
jeans ed hardy jeans coogi jeans gucci jeans versace jeans D&G jeans diesel jeans
bape jeans dsquared jeans AF jeans wholesale,chanel sandals gucci sandals
dior sandals burberry sandals juicy sandals D&G sandals fendi sandals
D&G belts ed hardy belts versace belts CA belts chanel belts D&G bags
burberry bags ed hardy bags chanel bags LV bags miumiu bags jimmy bags
have new produce,discount gucci watch LV watch armani watch omerga watch
rolex watch rado watch burberry watch KG watch IWC watch AP watch for sale


Add comment
Wednesday, 9 September 2009
Topic awaiting moderation edhardyhive 04:01:13
Wednesday, 22 July 2009
quick Regex help plz! Hotpop 07:10:09
 I have input like this:

HEADING1:
This is the description lines.............
This is the description lines.............
This is the description lines.............
This is the description lines.............

HEADING2:
This is the description lines.........

so and so...

I have to format the HTML output by bolding the headings along with putting 3 tabs for the first line immediately after heading.
eg.

<b>HEADING1:</b>
&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&­nbsp;&nbsp;&nbsp;&nb­sp;&nbsp; This is the description lines....
This is the description lines.............
This is the description lines.............
This is the description lines.............
This is the description lines.............


The two constants for headings are
1. it always start with a new line,
2. Always uppercase.



I have tried all the options as per my knowledge but in vain.


TIA,

Thanks,

Sara.

comment 3 answer | Add comment
Wednesday, 3 June 2009
DBD-Oracle Robert 12:51:40
 Hi list,I was able to install DBI module but DBD is giving the following error:C:\download\d­bd1>ppm install DBD-Oracle
Error: PPD for 'DBD-Oracle.ppd' could not be found. What am I missing? Thanks in advance




-------------------­--------------
Do you Yahoo!?
The New Yahoo! Search - Faster. Easier. Bingo.
comment 51 answer | Add comment
Friday, 29 May 2009
DBD::Oracle / ORACLE_HOME="/app/l­ocal/oracle/product/­9.2.0" / Solaris-2.8 / ... Jochen Hayek 12:07:07
 Hi!

I do experience problems when I try to install an uptodate version of DBD::Oracle.

So far we have been using this oracle: ORACLE_HOME="/app/l­ocal/oracle/product/­8.1.7",
but now the company installed 9.2.0 on all devopment and production machines,
so my boss told me to get DBD::Oracle running with 9.2.0, both on the client and on the server side.

Alright, first, this is "my context":

===================­====================­====================­====================­=
cronus@rsx94220 $ perl -V
Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
Platform:
osname=solaris, osvers=2.8, archname=sun4-solar­is
uname='sunos rsx94220 5.8 generic_112953-02 sun4u sparc '
config_args='-de -Dusemymalloc=n -Duseshrplib=n -Dprefix=/app/idsp2­2/cronus1/usr/local'­
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=unde­f useithreads=undef usemultiplicity=und­ef
useperlio=undef d_sfio=undef uselargefiles=defin­e usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef­
Compiler:
cc='gcc', ccflags ='-fno-strict-alias­ing -I/usr/local/includ­e -D_LARGEFILE_SOURCE­ -D_FILE_OFFSET_BITS­=64',
optimize='-O',
cppflags='-fno-stri­ct-aliasing -I/usr/local/includ­e'
ccversion='', gccversion='3.2', gccosandvers='solar­is2.8'
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, usemymalloc=n, prototype=define
Linker and Libraries:
ld='gcc', ldflags =' -L/usr/local/lib '
libpth=/usr/local/l­ib /usr/lib /usr/ccs/lib
libs=-lsocket -lnsl -ldl -lm -lc
perllibs=-lsocket -lnsl -ldl -lm -lc
libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs,­ dlext=so, d_dlsymun=undef, ccdlflags=' '
cccdlflags='-fPIC',­ lddlflags='-G -L/usr/local/lib'


Characteristics of this binary (from libperl):
Compile-time options: USE_LARGE_FILES
Built under solaris
Compiled at Jan 15 2003 03:22:35
@INC:
/app/idsp22/cronus1­/usr/local/lib/perl5­/5.6.1/sun4-solaris
/app/idsp22/cronus1­/usr/local/lib/perl5­/5.6.1
/app/idsp22/cronus1­/usr/local/lib/perl5­/site_perl/5.6.1/sun­4-solaris
/app/idsp22/cronus1­/usr/local/lib/perl5­/site_perl/5.6.1
/app/idsp22/cronus1­/usr/local/lib/perl5­/site_perl
.
===================­====================­====================­====================­=

First I simply tried this:

perl -MCPAN -e 'install DBD::Oracle'

but this is how it ended:

===================­====================­====================­====================­=
LD_RUN_PATH="/app/l­ocal/oracle/product/­9.2.0/lib:/app/local­/oracle/product/9.2.­0/rdbms/lib" gcc -G -L/usr/local/lib Oracle.o dbdimp.o oci7.o oci8.o -L/opt/SUNWcluster/­lib -R/opt/SUNWcluster/­lib -o build -L/app/local/oracle­/product/9.2.0/rdbms­/lib/ -L/app/local/oracle­/product/9.2.0/lib/ -lclntsh -lnbeq9 -lnhost9 -lnus9 -lnldap9 -lldapclnt9 -lnsslb9 -lnnis9 -lnoname9 -lntcp9 -lntcps9 -lnsslb9 -lntcp9 -lntns9 -lnsl -lsocket -lgen -ldl -R/app/local/oracle­/product/9.2.0/lib -laio -lposix4 -lkstat -lm -lthread -o blib/arch/auto/DBD/­Oracle/Oracle.so
ld: warning: option -o appears more than once, first setting taken
ld: fatal: file /app/local/oracle/p­roduct/9.2.0/lib//li­bclntsh.so: wrong ELF class: ELFCLASS64
ld: fatal: File processing errors. No output written to build
collect2: ld returned 1 exit status
make: *** [blib/arch/auto/DBD/­Oracle/Oracle.so] Error 1
/app/idse22/cronus/­usr/local/bin/make -- NOT OK
===================­====================­====================­====================­=

Bad, right?!

So I followed the README, now have a look at this, pls:

===================­====================­====================­====================­=
cronus@rsx94220 $ perl Makefile.PL -p
Using DBI 1.38 installed in /app/idsp22/cronus1­/usr/local/lib/perl5­/site_perl/5.6.1/sun­4-solaris/auto/DBI

Configuring DBD::Oracle ...
Remember to actually *READ* the README file!
Especially if you have any problems.

Using Oracle in /app/local/oracle/p­roduct/9.2.0

Oracle version 9.2.0.0.0
Found header files in rdbms/public rdbms/demo.
Found /app/local/oracle/p­roduct/9.2.0/rdbms/d­emo/demo_rdbms.mk
Found /app/local/oracle/p­roduct/9.2.0/otrace/­demo/atmoci.mk
Using /app/local/oracle/p­roduct/9.2.0/rdbms/d­emo/demo_rdbms.mk
Reading /app/local/oracle/p­roduct/9.2.0/rdbms/d­emo/demo_rdbms.mk
Reading /app/local/oracle/p­roduct/9.2.0/rdbms/l­ib/env_rdbms.mk
Deleting ORA_NLS = $(ORACLE_HOME)/ocom­mon/nls/admin/data/
because it is not already set in the environment
and it can cause ORA-01019 errors.
Deleting ORA_NLS33 = $(ORACLE_HOME)/ocom­mon/nls/admin/data/
because it is not already set in the environment
and it can cause ORA-01019 errors.

Attempting to discover Oracle OCI build rules
gcc -c -I/app/local/oracle­/product/9.2.0/rdbms­/demo -I/app/local/oracle­/product/9.2.0/rdbms­/public -I/app/local/oracle­/product/9.2.0/plsql­/public -I/app/local/oracle­/product/9.2.0/netwo­rk/public -I/app/local/oracle­/product/9.2.0/rdbms­/demo -I/app/local/oracle­/product/9.2.0/rdbms­/public -I/app/local/oracle­/product/9.2.0/rdbms­/demo -I/app/idsp22/cronu­s1/usr/local/lib/per­l5/site_perl/5.6.1/s­un4-solaris/auto/DBI­ -fno-strict-aliasin­g -I/usr/local/includ­e -D_LARGEFILE_SOURCE­ -D_FILE_OFFSET_BITS­=64 -O -DVERSION=\"1.14\" -DXS_VERSION=\"1.14­\" -fPIC -I/app/idsp22/cronu­s1/usr/local/lib/per­l5/5.6.1/sun4-solari­s/CORE -DUTF8_SUPPORT DBD_ORA_OBJ.c
cc1: warning: changing search order for system directory "/usr/local/include­"
cc1: warning: as it has already been specified as a non-system directory
by executing: (make -f /app/local/oracle/p­roduct/9.2.0/rdbms/d­emo/demo_rdbms.mk build ECHODO=echo ECHO=echo GENCLNTSH='echo genclntsh' CC=echo OPTIMIZE= CCFLAGS= EXE=DBD_ORA_EXE OBJS=DBD_ORA_OBJ.o)­
Oracle oci build command:
+ -L/opt/SUNWcluster/­lib -R/opt/SUNWcluster/­lib -o build -L/app/local/oracle­/product/9.2.0/rdbms­/lib/ -L/app/local/oracle­/product/9.2.0/lib/ -o DBD_ORA_EXE DBD_ORA_OBJ.o -lclntsh -lnbeq9 -lnhost9 -lnus9 -lnldap9 -lldapclnt9 -lnsslb9 -lnnis9 -lnoname9 -lntcp9 -lntcps9 -lnsslb9 -lntcp9 -lntns9 -lnsl -lsocket -lgen -ldl -R/app/local/oracle­/product/9.2.0/lib -laio -lposix4 -lkstat -lm -lthread



System: perl5.006001 sunos rsx94220 5.8 generic_112953-02 sun4u sparc
Compiler: gcc -O -fno-strict-aliasin­g -I/usr/local/includ­e -D_LARGEFILE_SOURCE­ -D_FILE_OFFSET_BITS­=64
Linker: /usr/ccs/bin/ld
Sysliblist: -lnsl -lsocket -lgen -ldl
Oracle makefiles would have used these definitions but we override them:
CC: cc

CFLAGS: $(GFLAG) $(OPTIMIZE) $(CDEBUG) $(CCFLAGS) $(PFLAGS)\
$(SHARED_CFLAG) $(USRFLAGS)
[$(GFLAG) -xO3 $(CDEBUG) -Xa $(PROFILE) -xstrconst -dalign -xF $(XS) $(MR) -xildoff -errtags=yes -v -xarch=v9 -xchip=ultra3 -W2,-AKNR_S -Wd,-xsafe=unboundsym -Wc,-Qiselect-funcalign=32 -xcode=abs44 -Wc,-Qgsched-trace_late=1 -Wc,-Qgsched-T5 -xalias_level=weak -D_REENTRANT -DSS_64BIT_SERVER -DBIT64 -DMACHINE64 -K PIC -I/app/local/oracle/product/9.2.0/rdbms/demo -I/app/local/oracle/product/9.2.0/rdbms/public -I/app/local/oracle/product/9.2.0/plsql/public -I/app/local/oracle/product/9.2.0/network/public -DSLMXMX_ENABLE -DSLTS_ENABLE -D_SVID_GETTOD -D_REENTRANT $(LPFLAGS) $(USRFLAGS)]

LDFLAGS: -o $@ $(LDPATHFLAG)$(PROD­LIBHOME) $(LDPATHFLAG)$(LIBH­OME)
[-o $@ -L/app/local/oracle/product/9.2.0/rdbms/lib/ -L$(LIBHOME)]


Linking with OTHERLDFLAGS = -L/opt/SUNWcluster/­lib -R/opt/SUNWcluster/­lib -o build -L/app/local/oracle­/product/9.2.0/rdbms­/lib/ -L/app/local/oracle­/product/9.2.0/lib/ -lclntsh -lnbeq9 -lnhost9 -lnus9 -lnldap9 -lldapclnt9 -lnsslb9 -lnnis9 -lnoname9 -lntcp9 -lntcps9 -lnsslb9 -lntcp9 -lntns9 -lnsl -lsocket -lgen -ldl -R/app/local/oracle­/product/9.2.0/lib -laio -lposix4 -lkstat -lm -lthread
[from 'build' rule]

Argument "9.200.0.0" isn't numeric in numeric ge (>=) at Makefile.PL line 669.

Warning: If you have problems you may need to rebuild perl with threading enabled.

LD_RUN_PATH=/app/lo­cal/oracle/product/9­.2.0/lib:/app/local/­oracle/product/9.2.0­/rdbms/lib
Using DBD::Oracle 1.14.
Using DBI 1.38 installed in /app/idsp22/cronus1­/usr/local/lib/perl5­/site_perl/5.6.1/sun­4-solaris/auto/DBI
Writing Makefile for DBD::Oracle

*** If you have problems...
read all the log printed above, and the README and README.help files.
(Of course, you have read README by now anyway, haven't you?)

===================­====================­====================­====================­=


The "perl -MCPAN -e 'install DBD::Oracle'" simply ignored that problem, but I am not sure, I really should, so I lay this case before you, hoping for a hint or two, or maybe a patch.

I am quite willing to try a lot -- if you give me hints what to try.

Cheers,
Jochen - wasting his life in the autumnly sad Munich

comment 9 answers | Add comment
Friday, 8 May 2009
setuid question: "insecure dependency"? Andria Thomas 13:13:57
 Hi all --

I'm trying to write a setuid script to change passwords on a machine via
the web. I am not trying to change the local passwords (i.e. *not*
modifying /etc/password), but I do need the script to be run as root so
it can call another password-changing utility which is doing the actual
work.

When run from the command line as root, the script works fine. However,
when run as myself (after setting the script to be setuid root) I get
the following error generated from the script's system call:

"Insecure dependency in system while running setuid at ./chpass_web.pl
line 159."

Perl is installed on this system to use suid emulation, so it's calling
the 'suidperl' binary. The problem originates from the following line
of code:

system "/bin/echo $new_password1 | /usr/local/sbin/sas­lpasswd -p
$in_username";

The documentation I've seen implies that variables can't be passed
directly into the shell, as they are above, but I couldn't reword the
system call in any way that still enabled it to work.

Can anyone help with this? Or lead me to any pointers on suidperl?
I've already read the perlsec manpage, and searched through the mailing
list archives...

Thanks!
Andria

--
-------------------­--------------------­-------
Andria Thomas andria@tovaris.com
System Administrator -- Tovaris, Inc.
(434) 245-5309 x 105

comment 3 answer | Add comment
Thursday, 16 April 2009
Trouble to load the XML::LibXML::Common­ module Kenneth Chan 20:31:50
 ____________________­____________________­_______
ActivePerl mailing list
ActivePerl@listserv­.ActiveState.com
To unsubscribe: http://listserv.Act­iveState.com/mailman­/mysubs
comment 9 answers | Add comment
Saturday, 21 March 2009
r25960 - docs/Perl6/Spec/S32­-setting-library Guest 14:50:43
 Author: masak
Date: 2009-03-21 12:50:43 +0100 (Sat, 21 Mar 2009)
New Revision: 25960

Modified:
docs/Perl6/Spec/S32­-setting-library/Con­tainers.pod
Log:
Merge branch 'typo'

Modified: docs/Perl6/Spec/S32­-setting-library/Con­tainers.pod
===================­====================­====================­========
--- docs/Perl6/Spec/S32­-setting-library/Con­tainers.pod 2009-03-21 10:41:53 UTC (rev 25959)
+++ docs/Perl6/Spec/S32­-setting-library/Con­tainers.pod 2009-03-21 11:50:43 UTC (rev 25960)
@@ -713,7 +713,7 @@

Returns an unordered list of the values that constitute the junction (formerly
called C<.values>). It flattens nested junctions of the same type, so
-C<(1|(2|3)).eigens­tate> returns an arbitrary permutation of the list
+C<(1|(2|3)).eigens­tates> returns an arbitrary permutation of the list
C<1, 2, 3>.

Note this is a private method; you must arrange for yourself to be trusted

Add comment
routine arrow syntax and return/of types Darren Duncan 07:37:55
 I have a question and a request.

In http://perlcabal.or­g/syn/S06.html#Named­_subroutines it says:

The general syntax for named subroutines is any of:

my RETTYPE sub NAME ( PARAMS ) TRAITS {...} # lexical only
our RETTYPE sub NAME ( PARAMS ) TRAITS {...} # also package-scoped
sub NAME ( PARAMS ) TRAITS {...} # same as "our"

The return type may also be put inside the parentheses:

sub NAME (PARAMS --> RETTYPE) {...}

In http://perlcabal.or­g/syn/S06.html#Subro­utine_traits there is a distinguishing
between 'of' and 'returns', such that 'of' is part of the external routine
signature and 'returns' is just an internal constraint.

Now first of all I wanted to ask/clarify, are all of the above forms, the
"RETTYPE sub" and "--> RETTYPE", equivalent to the "of" trait, meaning they are
part of the external signature, and that none are like "returns" being internal
to the routine only? That's how I hope it is.

Second, since the "sub NAME (PARAMS --> RETTYPE) {...}" form looks nice
visually, I would like to request a variant of that form, that flips the arrow:

sub NAME (RETTYPE <-- PARAMS) {...}

I ask because I like to declare my result type before my parameters, since the
declaration then reads in the same order as corresponding invocation items, as
well as having the shorter and more important declaration appearing first
(result type vs parameters):

my $result = myfunc( $arg1, $arg2 );

And at the same time it has the visually distinctive arrow syntax which is very
easy to read.

While "RETTYPE sub" and "of RETTYPE" provides the first advantage, it doesn't
provide the second.

Also providing both versions gives symmetry in the way that you have both of the
<== and ==> feed operators so users can order operations visually as per their
preference.

I also don't believe you are already using <-- for anything so it is free.

And I don't believe that there should be any problem incorporating this option
given the other issues like named invocants or longname parameters; you just
keep those with PARAMS as you did before, putting the lot on the right side of
the <--.

Note that this request is only useful to me if the existing --> means 'of' and
not 'returns'.

Thank you in advance for considering this request.

-- Darren Duncan
comment 4 answer | Add comment
Friday, 20 March 2009
Rakudo Perl development release #15 ("Oslo") Patrick R. Michaud 20:16:20
 On behalf of the Rakudo development team, I'm pleased to announce
the March 2009 development release of Rakudo Perl #15 "Oslo".
Rakudo is an implementation of Perl 6 on the Parrot Virtual Machine [1].
The tarball for the March 2009 release is available from

http://www.pmichaud­.com/perl6/rakudo-20­09-03.tar.gz

However, because of the rapid pace of Rakudo development and addition
of new features, we still recommend that people wanting to use or work
with Rakudo obtain the latest version directly from the main repository
at github -- more on this in a bit.

Rakudo Perl follows a monthly release cycle, with each release code named
after a Perl Mongers group. This release is named "Oslo" in honor of
the organizers of the 2009 Nordic Perl Workshop [2], April 16-17, 2009.
The 2009 Nordic Perl Workshop will have a special focus on Perl 6,
Rakudo Perl, and Parrot, including Perl 6 tutorials and hackathons
after the conference itself.

A list of the other planned release dates and codenames for 2009 is
available in the "docs/release_guide­.pod" file. In general, Rakudo
development releases are scheduled to occur two days after each
Parrot monthly release. Parrot releases the third Tuesday of each month.

Rakudo Perl now uses git [3] for its version control system, hosted
at http://github.com/r­akudo/rakudo . The README file there is kept
up-to-date with the latest instructions for obtaining and building
Rakudo Perl.

In this release of Rakudo Perl, we've made the following major changes
and improvements:

* Rakudo is now passing 7273 spectests. This is an increase of 197
passing tests since the February 2009 release.

* The eval() construct now understands lexical variables from an
outer scope.

* More of the builtin functions ("settings") are being written in Perl 6.

* Rakudo supports the "R" (reverse) metaoperator.

* Parsing of if, unless, while, until, etc. statements after blocks
now works correctly.

* The Q quote operator is now implemented, along with several adverbial
forms. In particular, the Q:P­IR form allows inline PIR to be
included in Perl 6 code.

* Multi-method dispatch now works with inheritance also.

The development team thanks all of our contributors and sponsors for
making Rakudo Perl possible. The next release of Rakudo (#16) is
scheduled for April 23, 2009.


References:
[1] Parrot, http://parrot.org/
[2] Nordic Perl Workshop 2009, http://www.perlwork­shop.no/npw2009/
[3] Git version control system, http://git-scm.org/­
Add comment
Dallas.p6m fREW Schmidt 12:25:02
 Hello friends!
s1n and I decided that we would start Dallas.p6m as we are close to each
other geographically speaking. We are meeting tomorrow (Thursday, March 19,
7:00PM) at a coffee shop with free wifi. The address is 985 W Bethany Dr
Allen, TX 75013.

So far it looks like it will be s1n, me, and two or three of my co-workers.
We don't really have an agenda, but I figure I will ask s1n about some PIR
stuff and if he wants I can chat about some perl 6 stuff (although he may
know more about that as well.)

Anyway, you are invited to come and have a good time! We will probably be
more organized in the future, but for now this will work :-)­



--
fREW Schmidt
http://blog.afoolis­hmanifesto.com
comment 3 answer | Add comment
r25933 - docs/Perl6/Spec Guest 00:38:42
 Author: lwall
Date: 2009-03-20 00:05:55 +0100 (Fri, 20 Mar 2009)
New Revision: 25933

Modified:
docs/Perl6/Spec/S06­-routines.pod
Log:
make as trait consistent with as/of in S02


Modified: docs/Perl6/Spec/S06­-routines.pod
===================­====================­====================­========
--- docs/Perl6/Spec/S06­-routines.pod 2009-03-19 22:57:34 UTC (rev 25932)
+++ docs/Perl6/Spec/S06­-routines.pod 2009-03-19 23:05:55 UTC (rev 25933)
@@ -13,9 +13,9 @@

Maintainer: Larry Wall <larry@wall.org>
Date: 21 Mar 2003
- Last Modified: 18 Mar 2009
+ Last Modified: 19 Mar 2009
Number: 6
- Version: 106
+ Version: 107


This document summarizes Apocalypse 6, which covers subroutines and the
@@ -1582,7 +1582,7 @@
The signature of a subroutine. Normally declared implicitly, by providing a
parameter list and/or return type.

-=item C<returns>/C<is returns>
+=item C<as>/C<is as>

The C<inner> type constraint that a routine imposes on its return value.


Add comment
install DBD::Oracle on oracle application server Joe Bayer 00:38:42
 dear group

I am trying to install DBD::Oracle on a box that has oracle application server. The sqlplus works fine, but i got error

Unable to locate an oracle.mk, proc.mk or other suitable *.mk
file in your Oracle installation. (I looked in
/usr/local/app/orac­le/product/10.2.0/Or­a10gSSB_1/rdbms/demo­/demo_xe.mk /usr/local/app/orac­le/product/10.2.0/Or­a10gSSB_1/rdbms/lib/­oracle.mk /usr/local/app/orac­le/product/10.2.0/Or­a10gSSB_1/rdbms/demo­/oracle.mk /usr/local/app/orac­le/product/10.2.0/Or­a10gSSB_1/rdbms/demo­/demo_rdbms.mk /usr/local/app/orac­le/product/10.2.0/Or­a10gSSB_1/precomp/de­mo/proc/proc.mk /usr/local/app/orac­le/product/10.2.0/Or­a10gSSB_1/precomp/de­mo/proc/demo_proc.mk­ /usr/local/app/orac­le/product/10.2.0/Or­a10gSSB_1/proc/lib/roc.mk /usr/local/app/orac­le/product/10.2.0/Or­a10gSSB_1/proc16/lib­/proc16.mk under /usr/local/app/orac­le/product/10.2.0/Or­a10gSSB_1)

Is it a must that I have to install Oracle client for DBD to compile?

Thanks for your help






comment 4 answer | Add comment
Thursday, 19 March 2009
r25911 - docs/Perl6/Spec Guest 23:35:30
 Author: lwall
Date: 2009-03-19 21:35:30 +0100 (Thu, 19 Mar 2009)
New Revision: 25911

Modified:
docs/Perl6/Spec/S12­-objects.pod
Log:
mark recent remarks as only for post-6.0.0


Modified: docs/Perl6/Spec/S12­-objects.pod
===================­====================­====================­========
--- docs/Perl6/Spec/S12­-objects.pod 2009-03-19 19:14:28 UTC (rev 25910)
+++ docs/Perl6/Spec/S12­-objects.pod 2009-03-19 20:35:30 UTC (rev 25911)
@@ -14,7 +14,7 @@
Date: 27 Oct 2004
Last Modified: 19 Mar 2009
Number: 12
- Version: 78
+ Version: 79

=head1 Overview

@@ -1335,6 +1335,19 @@
preferred if the constraint matches, and otherwise the second is
preferred.

+=head2 Multiple constraints
+
+[Conjecture: This entire section is considered a guess at our
+post-6.0.0 direction. For 6.0.0 we will allow only a single constraint
+before the variable, and post constraints will all be considered
+"epsilon" narrower than the single type on the left. The single
+constraint on the left may, however, be a value like 0 or a named
+subset type. Such a named subset type may be predeclared with an
+arbitrarily complex C<where> clause; for 6.0.0 any structure type
+information inferrable from the C<where> clause will be ignored,
+and the declared subset type will simply be considered nominally
+derived from the C<of> type mentioned in the same declaration.]
+
More generally, a parameter can have a set of constraints, and
the set of constraints defines the formal type of the parameter,
as visible to the signature. (No one constraint is priviledged as
@@ -1349,7 +1362,7 @@
The sigil is actually a constraint on the container, so the actual
type of the parameter above is something like:

- Positional[role { does Foo; does Bar; }]
+ Positional[subset :: of Any where Foo & Bar }]

Static C<where> clauses also count as part of the official type.
A C<where> clause is considered static if it can be applied to

Add comment

Add new topic:

How:  Register )
 
Login:   Password:   
Comments by: Premoderation:
Topic:
  
 
Пожалуйста, относитесь к собеседникам уважительно, не используйте нецензурные слова, не злоупотребляйте заглавными буквами, не публикуйте рекламу и объявления о купле/продаже, а также материалы нарушающие сетевой этикет или законы РФ. Ваш ip-адрес записывается.


QAIX > Perl web-programmingGo to page: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | next »

see also:
Formatting a date to be used in a date…
Entering Data for New Records
Access 97 picture suggestions
pass tests:
Who you from Rozen Maiden-Traumend?
see also:

  Copyright © 2001—2010 QAIX
Идея: Монашёв Михаил.
Авторами текстов, изображений и видео, размещённых на этой странице, являются пользователи сайта.
See Help and FAQ in the community support.qaix.com.
Write in the community about the bugs you have noticedbugs.qaix.com.
Write your offers and comments in the communities suggest.qaix.com.
Information for parents.
Пишите нам на .
If you would like to report an abuse of our service, such as a spam message, please .
Если Вы хотите пожаловаться на содержимое этой страницы, пожалуйста .