04-21-2010
Perl: Reading data from other file
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
perl2
perl3
perl4
Now I want to assign this data to another perl script to a variales as:
$var1 = 'perl1'
$var2 = 'perl2'
$var3 = 'perl3'
$var4 = 'perl4'
How can achieve this task in perl?
Waiting for reply.
Regards
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Just want to learn how these are read into array but I don't seem to get it right what do I go wrong?
Below is the sample
Thanks
input
1 2 3 4
5 6 7 8
9 1 2 3
4 5 6 7
#!/usr/bin/perl
open (InFILE,"input");
while (<InFILE>) {
@ar = split ; (5 Replies)
Discussion started by: zap
5 Replies
2. Shell Programming and Scripting
Hi All,
I am having trouble through, I am reading the input from tab delimited file containing several records,
e.g.
line1 field1 field2 field3 so on..
line2 field1 field2 field3 so on..
..
..
on the basis of certain fields for each record in input file, I have to retrieve... (1 Reply)
Discussion started by: Sonu4lov
1 Replies
3. Shell Programming and Scripting
Hi,
I have a sample data file that contains name-value pairs in it.
For example:
name1=value1
name2=value2
name3=value3
...
...
...
My concern is
1. How to get values of name1, name2, name3 using korn shell script?
2. I don't want to access each varible using $name1,$name2, $name3... (2 Replies)
Discussion started by: vinna
2 Replies
4. Shell Programming and Scripting
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)
Discussion started by: subhap
1 Replies
5. Shell Programming and Scripting
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)
Discussion started by: asak
3 Replies
6. Shell Programming and Scripting
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)
Discussion started by: gavin_L
1 Replies
7. Shell Programming and Scripting
I have a file as below. It contains two data sets separated by >.
I want to pipe each data set to another program called psxy. How
can I get the different records
Have started doing as follows but it only passes the first data set
awk 'BEGIN {RS=">"};{print $0}' p.dat
cat p.dat... (12 Replies)
Discussion started by: kristinu
12 Replies
8. Shell Programming and Scripting
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)
Discussion started by: scriptscript
1 Replies
9. Shell Programming and Scripting
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)
Discussion started by: giridhar276
4 Replies
LEARN ABOUT PHP
get_class_vars
GET_CLASS_VARS(3) 1 GET_CLASS_VARS(3)
get_class_vars - Get the default properties of the class
SYNOPSIS
array get_class_vars (string $class_name)
DESCRIPTION
Get the default properties of the given class.
PARAMETERS
o $class_name
- The class name
RETURN VALUES
Returns an associative array of declared properties visible from the current scope, with their default value. The resulting array elements
are in the form of varname => value. In case of an error, it returns FALSE.
CHANGELOG
+--------+---------------------------------------------------+
|Version | |
| | |
| | Description |
| | |
+--------+---------------------------------------------------+
| 5.0.3 | |
| | |
| | get_class_vars(3) will only return the properties |
| | that can be accessed from the current scope. |
| | |
| 5.0.2 | |
| | |
| | Calling get_class_vars(3) will now expose all |
| | the properties as an array, unlike previous be- |
| | haviour where protected and private properties |
| | were prefixed with nul bytes. |
| | |
| 5.0.1 | |
| | |
| | Calling get_class_vars(3) will expose all prop- |
| | erties, as when converting an object to a class. |
| | |
+--------+---------------------------------------------------+
EXAMPLES
Example #1
get_class_vars(3) example
<?php
class myclass {
var $var1; // this has no default value...
var $var2 = "xyz";
var $var3 = 100;
private $var4;
// constructor
function myclass() {
// change some properties
$this->var1 = "foo";
$this->var2 = "bar";
return true;
}
}
$my_class = new myclass();
$class_vars = get_class_vars(get_class($my_class));
foreach ($class_vars as $name => $value) {
echo "$name : $value
";
}
?>
The above example will output:
var1 :
var2 : xyz
var3 : 100
Example #2
get_class_vars(3) and scoping behaviour
<?php
function format($array)
{
return implode('|', array_keys($array)) . "
";
}
class TestCase
{
public $a = 1;
protected $b = 2;
private $c = 3;
public static function expose()
{
echo format(get_class_vars(__CLASS__));
}
}
TestCase::expose();
echo format(get_class_vars('TestCase'));
?>
The above example will output:
// 5.0.0
a| * b| TestCase c
a| * b| TestCase c
// 5.0.1 - 5.0.2
a|b|c
a|b|c
// 5.0.3 +
a|b|c
a
SEE ALSO
get_class_methods(3), get_object_vars(3).
PHP Documentation Group GET_CLASS_VARS(3)