This snippet does the job well, (though there may already be a function in the bio-perl modules that addresses the wider issue you are solving, always worth having a look through CPAN before coding
Code:
#!/usr/bin/perl
use strict;
use warnings;
open (my $index_1 , '<', $ARGV[0]);
my %index_1;
while (<$index_1>){
chomp;
if (/^([CAGT]+)\s(\d+)$/){
$index_1{$1}=$2;
}
else {
print "Invalid input \"$_\" in $ARGV[0], line $.\n";
}
}
close $index_1;
open (my $index_2 , '<', $ARGV[1]);
my %index_2;
while (<$index_2>){
chomp;
if (/^([CAGT]+)\s(\d+)$/){
$index_2{$1}=$2;
}
else {
print "Invalid input \"$_\" in $ARGV[1], line $.\n";
}
}
close $index_2;
my %indices;
@indices{(keys %index_1),(keys %index_2)}++;
for my $index (sort (keys %indices)){
print "$index\t ",$index_1{$index}||"0","\t", $index_2{$index}||"0","\n";
}
This yields the following when called with the named files, the script could be "genericised" to deal with any number of files on the command line.
why do inode indices starts from 1 unlike array indexes which starts from 0
its a question from "the design of unix operating system" of maurice j bach
id be glad if i get to know the answer quickly
:) (0 Replies)
Hi,
I have four input files and would like to create an output file as a table. Please check the example below.
File 1.
111111
222222
333333
444444
File 2.
555555
666666
777777
888888
File 3.
aaaaa
bbbbb
ccccc
ddddd (2 Replies)
hi there, I am trying to create a stored procedure that i can pass the table name to and it will create a table with that name. but for some reason it creates with what i have defined as the variable name . In the case of the example below it creates a table called 'tname'
for example
... (6 Replies)
I need a script that can do this:
A script that searches all directories and subdirectories for .html files
When a .html file is found it creates a index.html file in that folder.
It then edits the index.html file and inserts links to all of the .html files that are in that folder into the... (5 Replies)
Hi, I am trying to make a command to delete my files out the trash can, but one at a time.
I am currently using rm - i to do this, but the original file locations for restoring my files are heard on a .txt file which I am using as an index table.
How would I manage to make it so that if I... (21 Replies)
Hi Team,
I need to create a control file with a pre-defined structure for a given table name. The table is in teradata.
Ex: Table Name: TBL1
Table structure:
create multiset table tbl1, no fallback,
no before journal,
no after journal,
checksum = default,
default mergeblockratio... (7 Replies)
Gents,
Can you please help me to create a pivot table from a csv file. ( I have zip the csv file)
Using the file attached, columns 1,28 and 21 i would like to get something like this output
JD Val 1 2 3 4 5 6 7 8 9 10 11 12 Total... (4 Replies)
I am required to create a CSV file reading last 200000 lines form a log file. I have to grep 3 parameters from this log file and write these parameters in the .csv file, with time stamp. This script will be setup in a cron job which will run every 10 minutes. I have written the script but it is... (5 Replies)
Hello Frens,
I am a newbie to shell scripting. I need a help on creating a for loop script (shell script) for removing files. I have a table called a_table with column name fil_name which contains all the files that need to be removed.
Thank you in advance (6 Replies)
Discussion started by: manisha_singh
6 Replies
LEARN ABOUT DEBIAN
pfunc
PFUNC(1p) User Contributed Perl Documentation PFUNC(1p)NAME
pfunc - grep for perl functions
SYNOPSIS
pfunc subroutine FILES...
DESCRIPTION
pfunc searches the named FILES for all calls to the given subroutine. It will report back the file and line number each call is found on
along with what sort of call it is
function foo()
class method Class->foo()
object method $obj->foo()
EXAMPLE
$ pfunc isa /usr/share/perl/5.6.1/*.pm
Called as function in /usr/share/perl/5.6.1/CGI.pm at line 316
Called as function in /usr/share/perl/5.6.1/CGI.pm at line 327
Called as function in /usr/share/perl/5.6.1/CGI.pm at line 397
Called as function in /usr/share/perl/5.6.1/CGI.pm at line 494
Called as function in /usr/share/perl/5.6.1/CGI.pm at line 495
Called as object method in /usr/share/perl/5.6.1/CPAN.pm at line 4957
Called as function in /usr/share/perl/5.6.1/Dumpvalue.pm at line 191
Called as function in /usr/share/perl/5.6.1/Dumpvalue.pm at line 218
Called as function in /usr/share/perl/5.6.1/Dumpvalue.pm at line 248
Called as function in /usr/share/perl/5.6.1/Dumpvalue.pm at line 251
Called as function in /usr/share/perl/5.6.1/Dumpvalue.pm at line 254
Called as object method in /usr/share/perl/5.6.1/Shell.pm at line 28
Called as object method in /usr/share/perl/5.6.1/base.pm at line 12
NOTES
Its not fast, but its accurate.
AUTHOR
Michael G Schwern <schwern@pobox.com>
SEE ALSO
Module::Info
perl v5.10.1 2010-10-03 PFUNC(1p)
12-18-2011
