Hi,
This is Arun here, i am new to Perl so i
was just thinking of programming the TCP apllications or working. So
how do i do that, just needed guidance from you.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Hi this is Arun here, i am new to perl.Here i am trying to read a
string from the serial port but i am not able to and this is my
program:
# Read serial port until message or timeout occurs
sub ReadPort($$$) {
(my $String, my $TimeOut, my $Display) = @_;
$ob->read_const_time($Time
Hi,
As i am new to perl i just wanted to define a string with the
current date and time.
For example:
current_date-current_time::Arun::current_date,current_time,Prakash
so how do i define this string..
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail
What is wrong with this string.
$send_data = (print strftime "::DATA::123456789101112,%d.%m.%y,%H:%M:
%S,13.0076367,77.5489267,0,933.4,AirTel,31,0", gmtime);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Hi,
I just wanted small help here, i want to repeat an array for every
30 seconds.
lets us keep i want to send an array for every 30 seconds and also
should be able to quit as per the user.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http:/
Hi,
i am new to perl so i uat wanted some help.
i wanted the followinf loop to be repeated for every 30 seconds.
$send_data = strftime( "::DATA::123456789101112,%d.%m.%Y,%H:%M:%S,
13.0076367,77.5489267,0,933.4,AirTel,31,0 \n", gmtime);
DATA: {while(1)
{
$handle-> send($send_d
hi
Anyone help me in importing data from a text file in to a excel..
Arun
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
> $input = ;
> @input = split(/ +/, $input);
> $new = join ("", @input);
Why not just modify the string instead of splitting and joining:
( my $new = ) =~ s/ +//g;
I believe the above line does not work. It must be
( my $new = ) =~ s/ \+//g;
Whilst this email has been checked for all known
Hi,
I need to run a particular command "cleartool des " from a partiuclar
folder.
For example:
I need to get into directory m: cd \ Arun_Main and then run cleartool des
$temp .
I wrote the following code for this
foreach $temp(@vob2)
{
qx(m: cd \\Arun_Main);
$x = qx(cleartool des $temp);
$hash{$
Hi,
Suppose I have this code:
#/usr/local/bin/perl
use warnings;
use strict;
use subs 'verify';
my %where=(
Gary => "Dallas",
Lucy => "Exeter",
Ian => "Reading",
Samantha => "Oregon"
);
# Then i open a logfile
open FH, '<', $logfile or die "Can't open $logfile
Hi,
On 2007/02/26, at 10:12, John W. Krahn wrote:
print map "$_\n", @test;
print "$_\n" for @test;
Another solution is setting the $" variable:
my @array = qw(1 2 3 4 5);
{
local $" = "\n";
print "@array";
}
The above code does not seem to work for me.
I get an error say
ing
if two methods of installing have any differences and will it impact my
module library by any chance.
Thanks
Arun
Hi All,
Could you tell which is the best perl module for finding file type?
I am currently using File::Type but its missing out some (Shared
libraries, c programs etc...). Is there any modules to search those
files.
--
Regards,
Arun Menon
--
To unsubscribe, e-mail: beginners-unsubscr
Hello All,
Could you tell me what does the following do?
1 while (<>);
Also, how does 'eval' work and when is it useful? What is the difference if
we put a block inside eval like: eval ( };
--
Regards,
Arun.P.Menon
On Tue, Nov 23, 2010 at 10:13 PM, Amit Saxena wrote:
>
> On Tue, Nov 23, 2010 at 10:09 PM, shawn wilson wrote:
>
> > Well, each new ssh connection should spawn a new process so you could look
> > at it from that end. More technically, you could look into netstat or lsof
> > modules.
> > On Nov 23
On Tue, Nov 23, 2010 at 5:31 PM, Gopal Karunakar
wrote:
> Hi All,
>
> I want to check whether a particular file (a simple text file) is open
> in the UNIX environment. i.e. I want to make sure that its not getting
> written into by some other process before my Perl process open it. So that
> it
Try:
[~]$ perl -MFile::Basename -le '@file_list = qw(aaa ddd bbb/aaa ccc
ddd kkk/ddd hhh); $,="," ; print grep { $h{$_} == 1 } grep { ++$h{$_}
} map { basename($_) } @file_list;'
ccc,hhh
[~]$ perl -le '@file_list = qw(aaa ddd bbb/aaa ccc ddd kkk/ddd hhh);
$,="," ; print grep { $h{$_} == 1 } grep
17 matches
Mail list logo
