01-19-2007
hi
My actual code looks like below one..
@fields;
$sum=0;
$count=0;
$path_ascii="$ARGV[0]";
$outpath="/home/rout";
open(FW,">$outpath/test100.out");
opendir(DIR,"$path_ascii");
while($file = readdir(DIR))
{
open (RR,"<$path_ascii/$file");
print "\n$file";
while ( $line = <RR> )
{
@fields=split('#',$line);
if($fields[3] eq "1")
{
print "4";
}
When I execute it 4 is not Printed. The problem I have found is that its not entering into "if" statement. Please help.
Regards
Rochit
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
I am trying to use the split commad to seperate string reading from file. but it dosent give me a correct result. can some body tell me what is the wrong in following scritp.
#!/usr/bin/perl -w
#use CGI qw(:standard); ... (2 Replies)
Discussion started by: maheshsri
2 Replies
2. Shell Programming and Scripting
Hello,
if i have file like this:
010000890306932455804 05306977653873 0520080417010520ISMS SMT ZZZZZZZZZZZZZOC30693599000 30971360000 ZZZZZZZZZZZZZZZZZZZZ202011302942311 010000890306946317387 05306977313623 0520080417010520ISMS SMT ZZZZZZZZZZZZZOC306942190000 30971360000... (5 Replies)
Discussion started by: chriss_58
5 Replies
3. Shell Programming and Scripting
hi, I have a seemingly really stupid question, but here goes!
What do you enter into split delimiter to seperate something like this
"December 12, 1995"
and get
December
12
1995
?
thanks (5 Replies)
Discussion started by: ade214
5 Replies
4. Homework & Coursework Questions
Hi... I have a question regarding the split function in PERL.
I have a very huge csv file (more than 80 million records). I need to extract a particular position(eg : 50th position) of each line from the csv file. I tried using split function. But I realized split takes a very long time.
Also... (1 Reply)
Discussion started by: castle
1 Replies
5. Shell Programming and Scripting
Hi... I have a question regarding the split function in PERL.
I have a very huge csv file (more than 80 million records). I need to extract a particular position(eg : 50th position) of each line from the csv file. I tried using split function. But I realized split takes a very long time.
Also... (1 Reply)
Discussion started by: castle
1 Replies
6. Programming
Hello All -
I am having trouble with the split command in perl. Here is what I am trying to do.
75|2455345|2455349|00:00:00|00:00:00|Once|0|Frank Vacation | |
5
I want to only print out the 8th column. So that would be "Frank Vacation" and "Power Down" I need to run this on a file that... (16 Replies)
Discussion started by: tarken
16 Replies
7. Shell Programming and Scripting
Hi,
I have tried the split and join functions but stuck with unexpected results. Any help appreciated. I pass multiple values at command line like perl test.pl -type java,xml. This works good for me but i am not sure how to print it in the required format.
Here is the code i tried:... (4 Replies)
Discussion started by: nmattam
4 Replies
8. Shell Programming and Scripting
Hi,
I have an array with following data. First field shows the owner and second is unique name. Now i have to pic the latest value with respect to the date in case of duplicate.
like "def" is from two owners "rahul/vineet", now i want the latest from the two and the owner name also for all the... (9 Replies)
Discussion started by: vineet.dhingra
9 Replies
9. Shell Programming and Scripting
Hi All,
How to split the string KAR_Celltick_Ban_GSMGW3 and want to pickup the third filed. Sometime the string may be "KAR_Celltick_Ban" like this
Thanks in advance (1 Reply)
Discussion started by: sujit_kashyap
1 Replies
10. Shell Programming and Scripting
Hello, I have the following code:
while ($line = <fd_in>) {
126 $line = " " . $line ;
127 print "our_line:$line\n";
128 @list = split (/\s+/, $line) ;
129 print "after_split:@list\n";
130 print "$list\t$list\t$list\t$list\t$list\t$list$list\t\n";
131 $len =... (2 Replies)
Discussion started by: Zam_1234
2 Replies
LEARN ABOUT DEBIAN
ropkg::simba::commands
RoPkg::Simba::Commands(3pm) User Contributed Perl Documentation RoPkg::Simba::Commands(3pm)
NAME
RoPkg::Simba::Commands
VERSION
0.2.2
DESCRIPTION
RoPkg::Simba::Commands is a class used to count and get the commands from the database.
SYNOPSIS
!#/usr/bin/perl
use RoPkg::DB;
use RoPkg::Simba::Commands;
sub main {
my $dbp = new RoPkg::DB();
$dbp->Add('dbi:mysql:database=mysql;host=localhost',
'root',
'',
'local');
my $m = new RoPkg::Simba::Commands(dbo => $dbp, dbo_method => 'db_local');
print $m->Count,' commands found in database',$/;
}
main();
SUBROUTINES
/METHODS
new()
The class constructor. At this moment, it just calls RoPkg::DBObject->new() . Please read the RoPkg::DBObject manual page for more
information about the new() parameters.
Count($fields)
Returns the number of commands from database. The $fields parameter contains a list of WHERE clauses. For more details of $fields see
SQL::Abstract.
Get($fields, $orderby)
Returns a array of RoPkg::Simba::Command objects. The commands are read from the database. The $fields parameter contains a list of WHERE
clauses. For more details of $fields see SQL::Abstract. $orderby is a reference to a array holding the fields specification used for
sorting the data.
DIAGNOSTICS
Unpack the source and use 'make test' command
CONFIGURATION AND ENVIRONMENT
This module does not use any configuration files or environment variables.
DEPENDENCIES
RoPkg::DBCollection and RoPkg::Exceptions
INCOMPATIBILITIES
None known to the author
BUGS AND LIMITATIONS
None know to the author
PERL CRITIC
The code is perl critic level 2 compliant
SEE ALSO
RoPkg::Simba RoPkg::Simba::Command SQL::Abstract
AUTHOR
Subredu Manuel <diablo@iasi.roedu.net>
LICENSE AND COPYRIGHT
Copyright (C) 2005 Subredu Manuel. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the
same terms as Perl itself. The LICENSE file contains the full text of the license.
perl v5.14.2 2006-07-04 RoPkg::Simba::Commands(3pm)