I changed the namespace that the client is sending to "http://
200.0.1.153:8001/Server" and now I'am getting this error.
com.ibm.websphere.sca.ServiceRuntimeException: caused by: SOAPAction
shall match 'uri#method' if present (got 'createPDF', exp
ected 'http://200.0.1.153:8001/Server#createP
I have a problem with setting up an SOAPserver.
I have included how I set up my soapserver.
#!/usr/bin/perl -w
use strict;
use Carp ();
local $SIG{__WARN__} = \&Carp::cluck;
$|++;
use SOAP::Transport::HTTP;
my $daemon = SOAP::Transport::HTTP::Daemon
-> new (LocalAddr => 'queu
On 3/22/06, Alan_C <[EMAIL PROTECTED]> wrote:
> In emails I'm receiving from this list when I've copy/pasted into editor then
> save the file as Perl script gives the file many of the decimal 160 (as
> reported by perltidy) characters. Perl (when attempt to run said script)
> reports such charact
Short version: Copy/paste code from list emails brings undesired characters;
I discovered a Perl fix for it.
--
Detailed (and longer) version: Maybe my Kmail is doing it (I copy from Kmail
and paste into editor).
I tried two editors, Kate and Nedit so I don't think the editor is the cause.
I
On 3/22/06, tom arnall <[EMAIL PROTECTED]> wrote:
> could you explain in detail what the stuff in parens is about, i.e.,
> '?=.*\.' ?
When the first thing inside the parentheses is a question mark, it's a
sign that the parentheses are doing something special.
s/\.(?=.*\.)/_/gs
The perlre m
Tom, John,
could you explain in detail what the stuff in parens is about, i.e.,
'?=.*\.' ?
thanks,
tom arnall
north spit, ca
On Wednesday 22 March 2006 12:41 pm, Tom Phoenix wrote:
> On 3/22/06, S.A. Birl <[EMAIL PROTECTED]> wrote:
> > Im looking to subtitute all but the last . into _
> >
On Mar 22, John W. Krahn ([EMAIL PROTECTED]) typed:
> $ perl -e'
> my @files = qw[ filename.jpg.pgp filename.2.jpg.pgp file._.jpg.pgp ];
> for my $file ( @files ) {
> print "$file --> ";
> $file =~ s/\.(?=.*\.)/_/g;
> print "$file\n";
> }
> '
> filename.jpg.pgp --> filename_jpg
Gerard Robin wrote:
> Hello,
Hello,
> this script does what is expected :
>
> #!/usr/bin/perl
> use warnings;
> # use strict;
>
> &matrix_read_file;
>
> print "@$_\n" foreach @MAT1;
> print "@$_\n" foreach @$matrix_name;
>
> sub matrix_read_file
> {
> while (my $line = ) {
> chomp $li
On 3/22/06, S.A. Birl <[EMAIL PROTECTED]> wrote:
> Im looking to subtitute all but the last . into _
> ie: filename.jpg.pgp --> filename_jpg.pgp
> ie: filename.2.jpg.pgp --> filename_2_jpg.pgp
> ie: file._.jpg.pgp --> file__.pgp
There are many ways to do this
S.A. Birl wrote:
> Im doing some file renaming.
>
> Im looking to subtitute all but the last . into _
> ie: filename.jpg.pgp --> filename_jpg.pgp
> ie: filename.2.jpg.pgp --> filename_2_jpg.pgp
> ie: file._.jpg.pgp --> file__.pgp
>
>
> Ive tried about 10 different
Im doing some file renaming.
Im looking to subtitute all but the last . into _
ie: filename.jpg.pgp --> filename_jpg.pgp
ie: filename.2.jpg.pgp --> filename_2_jpg.pgp
ie: file._.jpg.pgp --> file__.pgp
Ive tried about 10 different expressions, but they've all
Harold Castro wrote:
> Hi,
Hello,
> Can you tell me why this loop doesn't work???
>
> #!/usr/local/bin/perl
> use warnings;
> use strict;
>
> our $hostpart = 1;
> our $networkpart = 128;
> $|=1;
>
>while ($networkpart <= 158){
> while ($hostpart <= 256){
> print "20
Gerard Robin wrote:
Hello,
this script does what is expected :
#!/usr/bin/perl
use warnings;
# use strict;
&matrix_read_file;
print "@$_\n" foreach @MAT1;
print "@$_\n" foreach @$matrix_name;
sub matrix_read_file
{
while (my $line = ) {
chomp $line;
next if $line =~ /^\s*$/;
i
>
> I have a build script which needs to run by multiple
> users(concurrently). Currently only one user can run this program.What are
> the code changes to make this program run concurrently.
>
Could you give more details explaining about why only one user can run your
script?
--
J
Hello,
this script does what is expected :
#!/usr/bin/perl
use warnings;
# use strict;
&matrix_read_file;
print "@$_\n" foreach @MAT1;
print "@$_\n" foreach @$matrix_name;
sub matrix_read_file
{
while (my $line = ) {
chomp $line;
next if $line =~ /^\s*$/;
if ($l
>How about
>
>#!/usr/bin/perl -w
>
>use strict;
>use warnings;
>
>for( my $networkpart = 128; $networkpart <= 158; $networkpart++ ){
> for( my $hostpart = 0; $hostpart < 256; $hostpart++ ){
>print "202.90.$networkpart.$hostpart\n";
> }
>}
>__END__
>
The '-w' option is not needed here since
Edit your loop like this
while ($networkpart <= 158){
while ($hostpart <= 256){
print "202.90.".$networkpart.".".$hostpart, "\n";
$hostpart++;
}
#
#Change the $hostpart back to 0
#
$hostpart=0;
$networkpart++;
}
--- Harold Castro <[EMAIL PROTECTED]> wrote:
> Hi,
>
Hi,
Harold Castro <[EMAIL PROTECTED]> asked:
> Can you tell me why this loop doesn't work???
>
> #!/usr/local/bin/perl
> use warnings;
> use strict;
>
> our $hostpart = 1;
> our $networkpart = 128;
That should probably be "my" instead of "our".
> $|=1;
>
>while ($networkpart <
I am seeing code optimization done inside the while loop.
Thanks
Best regards
Bala
-Original Message-
From: Harold Castro [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 22, 2006 2:50 PM
To: beginners@perl.org
Subject: printing a range of ip addresses
Hi,
Can you tell me why this l
Try setting the $hostpart to 1 just before the inner while loop :)
On Wed, 2006-03-22 at 01:20 -0800, Harold Castro wrote:
> Hi,
>
> Can you tell me why this loop doesn't work???
>
> #!/usr/local/bin/perl
> use warnings;
> use strict;
>
> our $hostpart = 1;
> our $networkpart = 128;
Hi,
Can you tell me why this loop doesn't work???
#!/usr/local/bin/perl
use warnings;
use strict;
our $hostpart = 1;
our $networkpart = 128;
$|=1;
while ($networkpart <= 158){
while ($hostpart <= 256){
print "202.90.".$networkpart.".".$hostpart, "\n";
++$hostpar
Good question. I went to a script right away after the difficulty with the
one-liner and returned to the command line syntax problem more out of curiosity
than anything else. I'm a fan of the command line because once I get one that
works all I need is the 'history' command and an up arrow key
22 matches
Mail list logo
