Learning Perl Objects, References & Modules.
5.2. Viewing Complex Data with Data :: Dumper
I used data dumper on your script above and this is what i get.
$VAR1 = [
'1',
'2',
'3',
'4'
];
$VAR1 = [
'5',
'6',
'7',
'8'
];
$VAR1 = [
'9',
'1',
'2',
'3'
];
$VAR1 = [
'4',
'5',
'6',
'7'
];
i think i know what your asking and if that is the case this is what is happening.
line 1 says read each line in the file.
line 3 says for each space add a new element to @ar for each items read in $_. (IE: for the first line read in @ar=qw(1 2 3 4)
line 7 says for each entry to @ar create an anonymous array inside @multiarray. (IE:
@mulriarray=(
[1,2,3,4];
);
)
if you are trying to do something else be as detailed in your question as possable and i am sure we can get you sorted out and pointing in the right direction.
Last edited by Optimus_P; 05-03-2004 at 03:42 PM..
I am trying to read in a 2 column data file into Perl Hash array index. Here is my code.
#!/usr/bin/perl -w
use strict;
use warnings;
my $file = "file_a";
my @line = ();
my $index = 0;
my %ind_file = ();
open(FILE, $file) or die($!);
while(<FILE>) {
chomp($_);
if ($_ eq '')
{
... (1 Reply)
Hi, I am writting some perl scripts for daily backup process. In which I want to pass some data/referance from another txt file. Text file contains only one column and multiple rows. I want to pass this data to variables of another perl script.
e.g.
Refdoc.txt file contains data as:
perl1... (3 Replies)
Hi,
i need a perl script which reads the file, content is given below. and output in new file.
TARGET DRIVE IO1 IO2 IO3 IO4 IO5
------------ --------- --------- --------- --------- ---------
0a.1.8 266 236 ... (3 Replies)
I wrote a simply perl that searched a file for a particualr value and if it found it, rite it and the next three lines to a file. Now I have been asked to check those next three lines for a different value and only write those lines if it finds the second value.
I was thinking the best way to... (1 Reply)
I need some help with this code below, i doesnt know why it will run twice with my function, but my function only got if else, any other way that can read line and put into array?
while read line; do
read -A array <<<$line
n=${#array}
for ((i=1;i<$n;i++)); do
print... (1 Reply)
This basic code works.
I have a very long list, almost 10000 lines that I am building into the array. Each line has either 2 or 3 fields as shown in the code snippit. The array elements are static (for a few reasons that out of scope of this question) the list has to be "built in".
It... (5 Replies)
Hi all,
I have written a perl code and stored the data into Data structure using Data::Dumper module.
But not sure how to retreive the data from the Data::Dumper.
Eg.
Based on the key value( Here CRYPTO-6-IKMP_MODE_FAILURE I should be able to access the internal hash elements(keys) ... (1 Reply)
Hi team,
# PERL
I have Dumper variable in perl and containing the below data and trying to fetch value and name from the reference variable.
$VAR1 = {
'retainSysIds' => 'true',
'variables' => ,
'name' => ,
... (4 Replies)
Hello,
I am running under ubuntu1 14.04 and I have a script which is sending given process names to vanish so that I'd see less output when I run most popular tools like top etc in terminal window. In usual method it works.
Whenever I restart the system, I have to enter the same data from... (2 Replies)
Discussion started by: baris35
2 Replies
LEARN ABOUT MOJAVE
json_pp
JSON_PP(1) Perl Programmers Reference Guide JSON_PP(1)NAME
json_pp - JSON::PP command utility
SYNOPSIS
json_pp [-v] [-f from_format] [-t to_format] [-json_opt options_to_json]
DESCRIPTION
json_pp converts between some input and output formats (one of them is JSON). This program was copied from json_xs and modified.
The default input format is json and the default output format is json with pretty option.
OPTIONS -f
-f from_format
Reads a data in the given format from STDIN.
Format types:
json
as JSON
eval
as Perl code
-t
Writes a data in the given format to STDOUT.
null
no action.
json
as JSON
dumper
as Data::Dumper
-json_opt
options to JSON::PP
Acceptable options are:
ascii latin1 utf8 pretty indent space_before space_after relaxed canonical allow_nonref
allow_singlequote allow_barekey allow_bignum loose escape_slash
-v
Verbose option, but currently no action in fact.
-V
Prints version and exits.
EXAMPLES
$ perl -e'print q|{"foo":"XX","bar":1234567890000000000000000}|' |
json_pp -f json -t dumper -json_opt pretty,utf8,allow_bignum
$VAR1 = {
'bar' => bless( {
'value' => [
'0000000',
'0000000',
'5678900',
'1234'
],
'sign' => '+'
}, 'Math::BigInt' ),
'foo' => "x{3042}x{3044}"
};
$ perl -e'print q|{"foo":"XX","bar":1234567890000000000000000}|' |
json_pp -f json -t dumper -json_opt pretty
$VAR1 = {
'bar' => '1234567890000000000000000',
'foo' => "x{e3}x{81}x{82}x{e3}x{81}x{84}"
};
SEE ALSO
JSON::PP, json_xs
AUTHOR
Makamaka Hannyaharamitu, <makamaka[at]cpan.org>
COPYRIGHT AND LICENSE
Copyright 2010 by Makamaka Hannyaharamitu
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.18.2 2018-08-17 JSON_PP(1)