07-14-2009
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
This is driving me mad, where am I going wrong?
The relevant segment of code:
sub getndsybcons {
my @servers=@{$_};
my @sybservers=@{$_};
my %results;
foreach my $server(@servers) {
my $biggestsyb;
my $biggestsybval=0;
... (9 Replies)
Discussion started by: Smiling Dragon
9 Replies
2. Shell Programming and Scripting
I have a script with dynamic hash of hashes , and I want to print the entire hash (with all other hashes).
Itried to do it recursively by checking if the current key is a hash and if yes call the current function again with refference to the sub hash.
Most of the printing seems to be OK but in... (1 Reply)
Discussion started by: Alalush
1 Replies
3. Shell Programming and Scripting
Hi there
I have a hash of hashes made up of the following data
bge0|100|half|10.36.100.21
bge1|1000|full|10.36.100.22
bge2|1000|full|10.36.100.23
which when i turn into a hash, would look like this inside the system
bge0 ->
nic_speed -> 100
nic_duplex -> half
... (6 Replies)
Discussion started by: hcclnoodles
6 Replies
4. Shell Programming and Scripting
Hi, sorry, two hash related questions in one day .. but this has got me a bit stuck.
I have a mysql database table that kind of looks like this, the table is called "view1" and a snippet of that table (SELECT'ing just rows with serial number 0629AN1200) is below
serial nic_name ... (2 Replies)
Discussion started by: hcclnoodles
2 Replies
5. Shell Programming and Scripting
Can Someone explain me why even using Tie::IxHash I can not get the output data in the same order that it was inserted? See code below.
#!/usr/bin/perl
use warnings;
use Tie::IxHash;
use strict;
tie (my %programs, "Tie::IxHash");
while (my $line = <DATA>) {
chomp $line;
my(... (1 Reply)
Discussion started by: jgfcoimbra
1 Replies
6. Shell Programming and Scripting
#use perl 5.8.5;
my %h1=(a=>'b', c=>'d');
my %h2=(a1=>'b1', c1=>'d1');
my $R1=\%h1;
my $R2=\%h2;
my %h= {$R1, $R2};
my $href=\%h; # hash of hashes
foreach my $key (keys %$href){
print "Z::$$href{$key}\n"
}
When I am trying to print elements of hash of hashes,
it prints HASH... (1 Reply)
Discussion started by: shristi
1 Replies
7. Shell Programming and Scripting
Hi there, I am trying to dereference my hash of hashes but post dereferencing, it seems to lose its structure I am using Data::dumper to help me anaylise.
This is the code im using to build the HoH, (data comes from a file). I have also performed a Dumper on the data structure before and after... (1 Reply)
Discussion started by: rethink
1 Replies
8. Shell Programming and Scripting
Hi,
I have an hashes of hash, where hash is dynamic, it can be n number of hash. i need to compare data_count values of all .
my %result (
$abc => {
'data_count' => '10',
'ID' => 'ABC122',
}
$def => {
'data_count' => '20',
'ID' => 'defASe',
... (1 Reply)
Discussion started by: asak
1 Replies
9. Cybersecurity
I have found this excellent site: NSRL Downloads
(sorry if it was already mentioned)
there are Solaris and Linux files there too.
its all in a text file, over 11Gb large. (0 Replies)
Discussion started by: orange47
0 Replies
10. Shell Programming and Scripting
Hello experts. I'm having problems with a snippet of code.
I was hoping to get help/advice to correct.
A file that this script parses has changed to the point where
I can no longer use a scalar, it looks as though I need to
create an array for a hash of hashes below.
The first output of... (1 Reply)
Discussion started by: timj123
1 Replies
LEARN ABOUT DEBIAN
catalyst::model::cdbi
Catalyst::Model::CDBI(3pm) User Contributed Perl Documentation Catalyst::Model::CDBI(3pm)
NAME
Catalyst::Model::CDBI - [DEPRECATED] CDBI Model Class
SYNOPSIS
# use the helper
create model CDBI CDBI dsn user password
# lib/MyApp/Model/CDBI.pm
package MyApp::Model::CDBI;
use base 'Catalyst::Model::CDBI';
__PACKAGE__->config(
dsn => 'dbi:Pg:dbname=myapp',
password => '',
user => 'postgres',
options => { AutoCommit => 1 },
relationships => 1
);
1;
# As object method
$c->comp('MyApp::Model::CDBI::Table')->search(...);
# As class method
MyApp::Model::CDBI::Table->search(...);
DESCRIPTION
This is the "Class::DBI" model class. It's built on top of "Class::DBI::Loader". "Class::DBI" is generally not used for new applications,
with "DBIx::Class" being preferred instead. As such this model is deprecated and (mostly) unmaintained.
It is preserved here for older applications which still need it for backwards compatibility.
new
Initializes Class::DBI::Loader and loads classes using the class config. Also attempts to borg all the classes.
SEE ALSO
Catalyst, Class::DBI Class::DBI::Loader
AUTHOR
Sebastian Riedel, "sri@cpan.org"
CONTRIBUTORS
mst: Matt S Trout "mst@shadowcat.co.uk"
Arathorn: Matthew Hodgson "matthew@arasphere.net"
COPYRIGHT
Copyright (c) 2005 - 2010 the Catalyst::Model::CDBI "AUTHOR" and "CONTRIBUTORS" as listed above.
This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.1 2010-02-09 Catalyst::Model::CDBI(3pm)