[29700] in Perl-Users-Digest
Perl-Users Digest, Issue: 944 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 17 09:09:44 2007
Date: Wed, 17 Oct 2007 06:09:07 -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 Wed, 17 Oct 2007 Volume: 11 Number: 944
Today's topics:
Re: Inline regex <abigail@abigail.be>
Re: Inline regex <wahab@chemie.uni-halle.de>
new CPAN modules on Wed Oct 17 2007 (Randal Schwartz)
Online Auction Script <swasaaron@gmail.com>
Re: Parsing of undecoded UTF-16 error <jpittman2@gmail.com>
perl Vs Shell <k.senthilmurugan@gmail.com>
Re: perl Vs Shell <jluis@agujeronegro.escomposlinux.org>
Re: perl Vs Shell <bugbear@trim_papermule.co.uk_trim>
Re: perl Vs Shell <mgjv@tradingpost.com.au>
Re: perl Vs Shell <abigail@abigail.be>
printing a subject line <zaxfuuq@invalid.net>
Re: Question about simple databases in Perl <january.weiner@gmail.com>
Re: SCP putting file problem <elvis-85473@notatla.org.uk>
Re: SCP putting file problem <rev_1318@hotmail.com>
Re: SCP putting file problem <lerameur@yahoo.com>
Re: SCP putting file problem <josef.moellers@fujitsu-siemens.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Oct 2007 11:05:17 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: Inline regex
Message-Id: <slrnfhbr3c.21q.abigail@alexandra.abigail.be>
_
Michele Dondi (bik.mido@tiscalinet.it) wrote on VCLIX September MCMXCIII
in <URL:news:lchah3l08lpr7c5urm8587qregtumsm6su@4ax.com>:
<> On 16 Oct 2007 22:14:33 GMT, Abigail <abigail@abigail.be> wrote:
<>
<> >That's two lines!
<> >
<> > my ($desc) = map {local $_ = $_; s/\s+$//; $_} $line [7];
<>
<> I often use C<local $_> myself, but I'm somewhat wary about it since
<> clpmisc informed me that it can be buggy with tied stuff, althoug I
<> doubt that $line [7] will contain any.
If $line [7] is tied, then you wouldn't know whether s/\s+$// actually
removes trailing white space.
General questions are usually not answerable if you have to account for
all possibilities of tiedness and overloading.
IMO, it's up to the implementor of the tie or overload methods to figure
out how "normal things" should be handled - the user of the normal things
shouldn't have to wonder whether something is tied or overloaded. (That
would defeat the purpose of tie and overload).
Abigail
--
BEGIN {$^H {q} = sub {$_ [1] =~ y/S-ZA-IK-O/q-tc-fe-m/d; $_ [1]}; $^H = 0x28100}
print "Just another PYTHON hacker\n";
------------------------------
Date: Wed, 17 Oct 2007 13:39:07 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: Inline regex
Message-Id: <ff4s8s$1d0$1@nserver.hrz.tu-freiberg.de>
Uri Guttman wrote:
>>>>>> "MW" == Mirco Wahab <wahab@chemie.uni-halle.de> writes:
> MW> Where the 'map' would (imho) make sense:
> MW> ...
> MW> my @trimmed = map /\s+$/ ? substr($_,0,$-[0]) : $_, @line;
> MW> ...
>
> why the extra code? just grab the text before the trailing spaces (untested):
This was made for "speedy design". I had "a million" of "big strings"
in mind - and tried to provide a practical, nondestructive version
that avoids unnecessary copying (see my last remark in my posting).
> my @trimmed = map /^(.*?)\s*$/, @line;
>
> note the use of * in both parts as either can be empty. dunno if this
> will run fast or slow due to the double use of *. but as i said in
> another thread, trimming white space is so trivial in perl so why waste
> effort on doing it in different ways.
If you have a production system that runs often, you may
optimize at one point because it runs better
everytime then ;-)
(The best "destructive" solution would possibly involve a
direct shortening of the SV* after /\s+$/ without copying
anything around.)
Regards
Mirco
------------------------------
Date: Wed, 17 Oct 2007 04:42:16 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Oct 17 2007
Message-Id: <Jq1H2G.zsz@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Apache2-Filter-Minifier-CSS-1.04_01
http://search.cpan.org/~gtermars/Apache2-Filter-Minifier-CSS-1.04_01/
CSS minifying output filter
----
Apache2-Filter-Minifier-JavaScript-1.04_01
http://search.cpan.org/~gtermars/Apache2-Filter-Minifier-JavaScript-1.04_01/
JS minifying output filter
----
AuthCAS-1.3.1
http://search.cpan.org/~osalaun/AuthCAS-1.3.1/
Client library for CAS 2.0 authentication server
----
CPAN-Mini-0.563
http://search.cpan.org/~rjbs/CPAN-Mini-0.563/
create a minimal mirror of CPAN
----
CSS-Minifier-XS-0.01_01
http://search.cpan.org/~gtermars/CSS-Minifier-XS-0.01_01/
XS based CSS minifier
----
CSS-Minifier-XS-0.01_02
http://search.cpan.org/~gtermars/CSS-Minifier-XS-0.01_02/
XS based CSS minifier
----
CSS-Minifier-XS-0.01_03
http://search.cpan.org/~gtermars/CSS-Minifier-XS-0.01_03/
XS based CSS minifier
----
Catalyst-View-Mason-0.15
http://search.cpan.org/~flora/Catalyst-View-Mason-0.15/
Mason View Class
----
Config-General-2.35
http://search.cpan.org/~tlinden/Config-General-2.35/
Generic Config Module
----
DBI-1.59_90
http://search.cpan.org/~timb/DBI-1.59_90/
Database independent interface for Perl
----
DBIx-Perlish-0.30
http://search.cpan.org/~gruber/DBIx-Perlish-0.30/
a perlish interface to SQL databases
----
DTS-0.02
http://search.cpan.org/~arfreitas/DTS-0.02/
Perl classes to access Microsoft SQL Server 2000 DTS Packages
----
Data-Validate-URI-0.02
http://search.cpan.org/~sonnen/Data-Validate-URI-0.02/
common url validation methods
----
Decision-ParseTree-0.01
http://search.cpan.org/~notbenh/Decision-ParseTree-0.01/
Replacing waterfall IF-ELSIF-ELSE blocks
----
Devel-Declare-0.001001
http://search.cpan.org/~mstrout/Devel-Declare-0.001001/
----
File-Tee-0.01
http://search.cpan.org/~salva/File-Tee-0.01/
replicate data sent to a Perl stream
----
Games-Hack-Patch-i686-0.1
http://search.cpan.org/~pmarek/Games-Hack-Patch-i686-0.1/
How to patch code sequences on i686
----
HTML-ReportWriter-1.5.0
http://search.cpan.org/~opiate/HTML-ReportWriter-1.5.0/
Simple OO interface to generate pageable, sortable HTML tabular reports
----
HTML-RobotsMETA-0.00001
http://search.cpan.org/~dmaki/HTML-RobotsMETA-0.00001/
Parse HTML For Robots Exclusion META Markup
----
Iterator-BreakOn-0.4
http://search.cpan.org/~vmoral/Iterator-BreakOn-0.4/
Iterator with control flow breaks
----
JSON-DWIW-0.16
http://search.cpan.org/~dowens/JSON-DWIW-0.16/
JSON converter that Does What I Want
----
JavaScript-Minifier-XS-0.01_01
http://search.cpan.org/~gtermars/JavaScript-Minifier-XS-0.01_01/
XS based JavaScript minifier
----
JavaScript-Minifier-XS-0.01_02
http://search.cpan.org/~gtermars/JavaScript-Minifier-XS-0.01_02/
XS based JavaScript minifier
----
JavaScript-Minifier-XS-0.01_03
http://search.cpan.org/~gtermars/JavaScript-Minifier-XS-0.01_03/
XS based JavaScript minifier
----
Locale-Maketext-Utils-v0.0.9
http://search.cpan.org/~dmuey/Locale-Maketext-Utils-v0.0.9/
Adds some utility functionality and failure handling to Local::Maketext handles
----
MySQL-Backup-0.04
http://search.cpan.org/~dmitry/MySQL-Backup-0.04/
Perl extension for making backups of mysql DBs.
----
POE-Component-MDBA-0.01003
http://search.cpan.org/~dmaki/POE-Component-MDBA-0.01003/
Multi-Database Aggregation with POE
----
Parallel-Iterator-0.8.0
http://search.cpan.org/~andya/Parallel-Iterator-0.8.0/
Simple parallel execution
----
Parse-Marpa-0.001_016
http://search.cpan.org/~jkegl/Parse-Marpa-0.001_016/
Earley's Algorithm, with improvements
----
Regex-Number-GtLt-0.1
http://search.cpan.org/~ifrol/Regex-Number-GtLt-0.1/
generate regex for numbers larger, smaller or between one or two given numbers.
----
Rose-HTML-Objects-0.550
http://search.cpan.org/~jsiracusa/Rose-HTML-Objects-0.550/
Object-oriented interfaces for HTML.
----
SVN-Class-0.02
http://search.cpan.org/~karman/SVN-Class-0.02/
manipulate Subversion workspaces with Perl objects
----
SVN-Class-0.03
http://search.cpan.org/~karman/SVN-Class-0.03/
manipulate Subversion workspaces with Perl objects
----
Sepia-0.93
http://search.cpan.org/~seano/Sepia-0.93/
Simple Emacs-Perl Interface
----
Test-Harness-Straps-0.27
http://search.cpan.org/~mschwern/Test-Harness-Straps-0.27/
detailed analysis of test results
----
Test-Weaken-0.001_006
http://search.cpan.org/~jkegl/Test-Weaken-0.001_006/
Test for leaks after weakening of circular references
----
Win32API-File-Time-0.006
http://search.cpan.org/~wyant/Win32API-File-Time-0.006/
Set file times, even on open or readonly files.
----
ack-1.68
http://search.cpan.org/~petdance/ack-1.68/
grep-like text finder
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Wed, 17 Oct 2007 03:37:15 -0700
From: Agnes <swasaaron@gmail.com>
Subject: Online Auction Script
Message-Id: <1192617435.146548.95130@k35g2000prh.googlegroups.com>
AJ Auction pro encompasses 3 types of services with the options of
Merchant Solutions, Packaged software and Enterprise solutions . We
introduce the World's first Desktop Based Admin Software(DBAS)
specially designed to meet the needs of Auction site
Administrators .We offer this All-New DBAS free of cost along with the
purchase our Merchant Solutions. We provide you with far more advanced
features that substantially increases the versatility of your Auction
site. No matter what your requirements are, we have them done for you
with its professional look and feel. Unlimited technical support to
guide you through out , right from purchase of the script to the
effective implementation of the same.
http://www.ajauctionpro.com/products/hosting_pack.php?pro=host&plan_id=13
------------------------------
Date: Wed, 17 Oct 2007 05:13:45 -0000
From: livefreeordie <jpittman2@gmail.com>
Subject: Re: Parsing of undecoded UTF-16 error
Message-Id: <1192598025.784752.68920@i38g2000prf.googlegroups.com>
On Oct 15, 3:16 am, "Mumia W." <paduille.4061.mumia.w
+nos...@earthlink.net> wrote:
> On 10/15/2007 01:02 AM, livefreeordie wrote:
>
>
>
>
>
> > Hi - I'm using the following construct to parse an HTML page:
>
> > use HTTP::Request;
> > use LWP::UserAgent;
>
> > my $req = new HTTP::Request(GET=>$url);
> > my $ua = new LWP::UserAgent();
> > my $resp = $ua->request($req);
> > my $content = $resp->decoded_content();
>
> > I'm getting the following error when attempting to access this URL:
>
> > Error: Parsing of undecoded UTF-16 at C:/Perl/lib/LWP/Protocol.pm line
> > 116.
> > URL: http://securities.stanford.edu/1009/RICKEL96/'
>
> I don't get this with LWP::UserAgent 2.033 and HTTP::Request 1.40.
>
> > When I take a look at the content, each character is separated by a
> > newline or space.
>
> The characters are separated by nulls. The file is in UTF16LE format;
> however, this is not advertised in the HTTP header.
>
> > What is this, and how can I get around it? I've retrieved other pages
> > successfully.
>
> > Jamie
>
> What version of Perl are you using? What module versions are you using?- Hide quoted text -
>
> - Show quoted text -
ActivePerl v5.8.8 built for MSWin32-x86-multi-thread
LWP::UserAgent version is 2.036
HTTP::Request version is 1.40
Thanks,
Jamie
------------------------------
Date: Tue, 16 Oct 2007 21:47:12 -0700
From: DriVE_mE_cRazY <k.senthilmurugan@gmail.com>
Subject: perl Vs Shell
Message-Id: <1192596432.861178.325600@t8g2000prg.googlegroups.com>
Hi all,
Can we write a perl script which does all the activities of a shell
script? If Yes what the advantage of using perl script in the place of
shell script.Please explain me. I'm working as a oracle DBA and i want
to write the perl script for oracle db/apps cloning which was written
in shell script.
------------------------------
Date: Wed, 17 Oct 2007 09:54:25 +0100
From: José Luis Pérez Diez <jluis@agujeronegro.escomposlinux.org>
Subject: Re: perl Vs Shell
Message-Id: <VA.00000be1.05ad1bf8@agujeronegro.escomposlinux.org>
In article <1192596432.861178.325600@t8g2000prg.googlegroups.com>,
DriVE_mE_cRazY wrote:
> Hi all,
>
> Can we write a perl script which does all the activities of a shell
> script?
Yes
> If Yes what the advantage of using perl script in the place of
> shell script.
Portability
------------------------------
Date: Wed, 17 Oct 2007 10:11:38 +0100
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: perl Vs Shell
Message-Id: <13hbkebcjnaqp06@corp.supernews.com>
José Luis Pérez Diez wrote:
> In article <1192596432.861178.325600@t8g2000prg.googlegroups.com>,
> DriVE_mE_cRazY wrote:
>> Hi all,
>>
>> Can we write a perl script which does all the activities of a shell
>> script?
>
> Yes
>
>> If Yes what the advantage of using perl script in the place of
>> shell script.
>
> Portability
>
>
If both perl and shell are making extensive use of installed
(command line) tools, both scripts are equally NON portable.
BugBear
------------------------------
Date: Wed, 17 Oct 2007 20:50:54 +1000
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: perl Vs Shell
Message-Id: <slrnfhbq8e.b5o.mgjv@martien.heliotrope.home>
On Wed, 17 Oct 2007 09:54:25 +0100,
José Luis Pérez Diez <jluis@agujeronegro.escomposlinux.org> wrote:
> In article <1192596432.861178.325600@t8g2000prg.googlegroups.com>,
> DriVE_mE_cRazY wrote:
>> Hi all,
>>
>> Can we write a perl script which does all the activities of a shell
>> script?
>
> Yes
There is no single yes or no answer to the above question. While you can
probably replicate a sheel script in Perl, that is not always the best
idea. Shells are generally good at calling loads of external programs,
and stringing them together in some coherent whole. As programming
languages, most shells are generally not that great. Shells also often
lack builtin functionality that you tend to find in perl, and people use
tools like awk, sed, grep, etc for that instead.
While Perl can be used to 'replace' shell scripts, I very often prefer
shell scripts, simply because the problem at hand is more easily solved
with a shell than with Perl.
>> If Yes what the advantage of using perl script in the place of
>> shell script.
>
> Portability
That is a gross overgeneralisation. If the majority of tasks consists of
calling external programs, then portability has nothing to do with it.
I can run my shell scripts on the three Unix and unix-like OSes that I
work on, as well as on Windows and MacOS. All the 'standard' tools (or
close relatives of them) are available on all those platforms if you
want.
To the OP: use what is best for the task at hand. If almost all you have
to do is execute SQL in your database servers and work with the result
sets, then using Perl with the DBI is probably a good choice. If,
however, you need to mainly execute tools that came with your software,
a shell may be better.
Don't be afraid to use both if you do both.
Martien
--
|
Martien Verbruggen | If at first you don't succeed, try again.
| Then quit; there's no use being a damn fool
| about it.
------------------------------
Date: 17 Oct 2007 11:13:57 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: perl Vs Shell
Message-Id: <slrnfhbrjl.21q.abigail@alexandra.abigail.be>
_
DriVE_mE_cRazY (k.senthilmurugan@gmail.com) wrote on VCLX September
MCMXCIII in <URL:news:1192596432.861178.325600@t8g2000prg.googlegroups.com>:
!!
!! Hi all,
!!
!! Can we write a perl script which does all the activities of a shell
!! script?
Yes.
You can also write a C program that does all the activities of a shell
script. Or a Java program. Or by a program written in any other general
purpose language, and an whole array of special domain languages as well.
!! If Yes what the advantage of using perl script in the place of
!! shell script.Please explain me.
Whether or not it's an advantage depends on two things: the problem at
hand, and the programmer(s) writing/maintaining the program. Some people
will almost always use Perl, regardless of the problem; others will almost
always use shell instead of Perl. And there are a bunch of people who
will be somewhere in between. Of course, a not insignificant amount of
people will prefer to something else than shell or Perl.
!! I'm working as a oracle DBA and i want
!! to write the perl script for oracle db/apps cloning which was written
!! in shell script.
If you have already decided you want to rewrite an existing shell script
into Perl, what do the answers to the questions matter?
*You* have decided it should be written in Perl.
That ought to be reason enough.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s};;;
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)}; # Perl 5.6.0 broke this...
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
------------------------------
Date: Tue, 16 Oct 2007 19:36:51 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: printing a subject line
Message-Id: <s-mdndLaNJ6z-ojanZ2dnUVZ_g-dnZ2d@comcast.com>
#!/usr/bin/perl
use strict;
use Net::NNTP ();
use constant NUMBER_OF_ARTICLES => 1;
use constant GROUP_NAME => 'comp.lang.perl.misc';
use constant SERVER_NAME => 'newsgroups.comcast.net';
use constant NNTP_DEBUG => 0;
my $nntp = Net::NNTP->new(SERVER_NAME, 'Debug' => NNTP_DEBUG) or die;
my $USER = '';
my $PASS = '';
$nntp->authinfo($USER,$PASS) or die $!;
my($article_count, $first_article, $last_article) =
$nntp->group(GROUP_NAME) or die;
# Which XOVER fields contain Subject: and From:?
my $count = 0;
my %xover_fmt = map( ($_, $count++), @{ $nntp->overview_fmt or die} );
die unless exists $xover_fmt{'Subject:'};
my $subject_offset = $xover_fmt{'Subject:'};
my $from_offset = $xover_fmt{'From:'};
my(@xover, $start_article);
RETRIEVE: while ($#xover+1 < NUMBER_OF_ARTICLES and $last_article >=
$first_article) {
# How many articles do we need? Stop retrieving if we have enough
my $articles_required = NUMBER_OF_ARTICLES - ($#xover+1) or last
RETRIEVE;
# Fetch overview information for the articles
$start_article = $last_article - ($articles_required-1);
$start_article = $start_article > $first_article ? $start_article :
$first_article;
my $xover_query = $start_article == $last_article ?
$start_article :
[$start_article, $last_article];
my $xover_ref = $nntp->xover($xover_query) or die;
# Store headers for the articles we've retrieved
foreach (sort {$b <=> $a} keys %$xover_ref) {
push @xover, $xover_ref->{$_};
}
} continue {
# Move the pointer forward to fetch previous articles
$last_article = $start_article - 1;
}
# Disconnect from the NNTP server
$nntp->quit;
# trouble is between here and the end
my $string1 = $_->[$subject_offset];
print join("\n", map ($_->[$subject_offset].' from
'.$_->[$from_offset], @xover)),"\n";
print $string1 ;
#end script begin comment
This script has tested ok on its ability to grab a usenet message. Now I
want to do soemthing with the subject, and I don't see where I go wrong. I
think I get the subject into my $string with:
my $string1 = $_->[$subject_offset];
Perl.exe says $string1 is unitialized in the ultimate print statement. What
gives?
--
wade ward
"Nicht verzagen, Bruder Grinde fragen."
------------------------------
Date: Wed, 17 Oct 2007 07:09:23 +0200 (CEST)
From: January Weiner <january.weiner@gmail.com>
Subject: Re: Question about simple databases in Perl
Message-Id: <ff45e3$9kp$1@sagnix.uni-muenster.de>
Paul Lalli <mritty@gmail.com> wrote:
> There's no way that works. It simply repeatedly tests to see if there
> are any elements in the hash, and if so, executes that SQL. It does
> not assign any elements to $_, and seeing as nothing in the block
> changes %records, it's an infinite loop.
Whoups, my error while simplifying the code snippet. It should have been
for( keys %... ) {
}
j.
--
------------------------------
Date: 17 Oct 2007 09:35:38 GMT
From: all mail refused <elvis-85473@notatla.org.uk>
Subject: Re: SCP putting file problem
Message-Id: <slrnfhblp7.k88.elvis-85473@notatla.org.uk>
On 2007-10-17, lerameur <lerameur@yahoo.com> wrote:
> http://rcsg-gsir.imsb-dsgi.nrc-cnrc.gc.ca/documents/internet/node31.html
> and also from other post here a few days ago.
> but I still get the error message.
> I created a key in .ssh/id_rsa.pub and copy that into the .ssh/
> known_hosts in the receiving server
You seem to have confused host keys with user keys.
On the client side: "ssh-keygen -t dsa"
and copy "id_dsa" to (on the server side) ".ssh/authorized_keys" .
--
Elvis Notargiacomo master AT barefaced DOT cheek
http://www.notatla.org.uk/goen/
------------------------------
Date: Wed, 17 Oct 2007 11:55:53 +0200
From: Paul <rev_1318@hotmail.com>
Subject: Re: SCP putting file problem
Message-Id: <15271$4715dc2a$83ae3e7c$26833@news1.tudelft.nl>
all mail refused schreef:
> On 2007-10-17, lerameur <lerameur@yahoo.com> wrote:
>
>> http://rcsg-gsir.imsb-dsgi.nrc-cnrc.gc.ca/documents/internet/node31.html
>> and also from other post here a few days ago.
>> but I still get the error message.
>> I created a key in .ssh/id_rsa.pub and copy that into the .ssh/
>> known_hosts in the receiving server
>
> You seem to have confused host keys with user keys.
>
> On the client side: "ssh-keygen -t dsa"
> and copy "id_dsa" to (on the server side) ".ssh/authorized_keys" .
^^^^^^
You mean id_dsa.pub :)
I wouldn't like it if anyone had my private key...
Paul
------------------------------
Date: 17 Oct 2007 04:39:17 -0700
From: lerameur <lerameur@yahoo.com>
Subject: Re: SCP putting file problem
Message-Id: <1192620903.609392.13240@k35g2000prh.googlegroups.com>
On Oct 17, 11:55 am, Paul <rev_1...@hotmail.com> wrote:
> all mail refused schreef:> On 2007-10-17, lerameur <leram...@yahoo.com> wrote:
>
> >>http://rcsg-gsir.imsb-dsgi.nrc-cnrc.gc.ca/documents/internet/node31.html
> >> and also from other post here a few days ago.
> >> but I still get the error message.
> >> I created a key in .ssh/id_rsa.pub and copy that into the .ssh/
> >> known_hosts in the receiving server
>
> > You seem to have confused host keys with user keys.
>
> > On the client side: "ssh-keygen -t dsa"
> > and copy "id_dsa" to (on the server side) ".ssh/authorized_keys" .
>
> ^^^^^^
>
> You mean id_dsa.pub :)
>
> I wouldn't like it if anyone had my private key...
>
> Paul
well I do not see .ssh/authorized_keys but I do see /dir/.ssh/
known_hosts
I also have a directory /.ssh/known_hosts but this is root access
only and I tried puttingin both places my public key but that never
worked
k
------------------------------
Date: Wed, 17 Oct 2007 13:51:34 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: SCP putting file problem
Message-Id: <ff4t0c$9aa$1@nntp.fujitsu-siemens.com>
lerameur wrote:
> On Oct 17, 11:55 am, Paul <rev_1...@hotmail.com> wrote:
>=20
>>all mail refused schreef:> On 2007-10-17, lerameur <leram...@yahoo.com>=
wrote:
>>
>>
>>>>http://rcsg-gsir.imsb-dsgi.nrc-cnrc.gc.ca/documents/internet/node31.h=
tml
>>>>and also from other post here a few days ago.
>>>>but I still get the error message.
>>>>I created a key in .ssh/id_rsa.pub and copy that into the .ssh/
>>>>known_hosts in the receiving server
>>
>>>You seem to have confused host keys with user keys.
>>
>>>On the client side: "ssh-keygen -t dsa"
>>>and copy "id_dsa" to (on the server side) ".ssh/authorized_keys" .
>>
>> ^^^^^^
>>
>>You mean id_dsa.pub :)
>>
>>I wouldn't like it if anyone had my private key...
>>
>>Paul
>=20
>=20
> well I do not see .ssh/authorized_keys
If it's not there, it will be created by the '>>' redirection.
The sshd doesn't care whether the file exists and is empty or doesn't=20
exist. In both cases, no public keys from the client user exist and a=20
password will be requested.
--=20
These are my personal views and not those of Fujitsu Siemens Computers!
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
Company Details: http://www.fujitsu-siemens.com/imprint.html
------------------------------
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 V11 Issue 944
**************************************
