Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl : converting file to different scalar elements
Top Forums Shell Programming and Scripting Perl : converting file to different scalar elements Post 302962374 by scriptscript on Sunday 13th of December 2015 08:40:23 AM
Old 12-13-2015
Thank you Don for your extended support.

Below is what where I got stuck.

Code:
my $count = 0;
open (IN, "filetext.txt");
@array = () ;
while (<IN>) 
{
    if (/exec/) 
    {
	$count = 1;
    }
    elsif (/^\)/) 
    {
	$count = 0;
    }
    elsif ($count) 
    {
	push(@array,$_);

    }

}
close IN;

print "@array";

foreach $line ( @array )
{
        ## not sure what to do next
}


Now @array contains both the query. Now I want to make those queries into two scalars.

Thanks,
John
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl scalar variable in backquoted string

hi I've been searching all over the internet to simply do the following: $tempfile = "/usr/school/tempfile.dat"; $myvar = param('add'); ###add is the variable assigned to a popup menu `ls -l $myvar * >> $tempfile` ###I also tried `ls -l ${myvar}* >>$tempfile` open(ADDLIST,... (6 Replies)
Discussion started by: mehdi9
6 Replies

2. Shell Programming and Scripting

scalar variable assignment in perl + { operator

When reading over some perl code in a software document, I came across an assignment statement like this $PATH = ${PROJECT}/......./.... In this particular form of scalar variable assignment, what does the curly braces operators do ? Also, what is the benefit in doing scalar assignment this... (3 Replies)
Discussion started by: JamesGoh
3 Replies

3. Shell Programming and Scripting

Perl - New line in array elements

Hello, I have a comma delimited input feed file. The first field has directory location and the second field has file name. Ex of input feed: /export/appl/a,abc*.dat /export/appl/b,xyz*.dat /export/appl/c,pmn*.dat Under each directory, there would be many files like... . . .... (4 Replies)
Discussion started by: bperl
4 Replies

4. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies

5. Shell Programming and Scripting

Perl:Use of array elements in pattern matching

I need to use array elements while pattern matching. @myarr = (ELEM1, ELEM2, ELEM3); following is the statement which I am using in my code. Basically I want to replace the ELEM1/2/3 with other thing which is mentioned as REPL here. if (condition) { s/(ELEM1|ELEM2|ELEM3): REPL: /; } I... (3 Replies)
Discussion started by: deo_kaustubh
3 Replies

6. Shell Programming and Scripting

perl DBI: populate a scalar from a select statement

hi every resource i see regarding DBI refers to retrieving data from a database into and array or a hash, but i havent seen anything on how to pull out a single value to a scalar in my database i have a field called "forcewrite" with a value of "6". I am trying to connect to the database,... (2 Replies)
Discussion started by: hcclnoodles
2 Replies

7. Shell Programming and Scripting

Perl Array Elements Replacement

Hello, I have the following perl array: @longname = (Fasthernet0/0 Fasthernet0/1 Serial0/1/0 Serial0/2/1 Tunnel55 Tunnel77) with the followinh array: @shortname = (Fa0/0 Fa0/1 Se0/1/0 Se0/2/1 Tu55 Tu77) in other words, I need to remove the following from each element in the array... (4 Replies)
Discussion started by: ahmed_zaher
4 Replies

8. Shell Programming and Scripting

Help required converting XSD to XML file in PERL

Hi, Please find below the xsd. <?xml version="1.0" encoding="ISO-8859-1" ?> <xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"> <xs:element name="fruitorder"> <xs:complexType> <xs:sequence> <xs:element name="orderperson"... (2 Replies)
Discussion started by: vanitham
2 Replies

9. Shell Programming and Scripting

Array elements comparison using perl

Experts, I am looking to compare elements of 2 array using perl. Below is not the actual code but logic wise something like this. my $version = "MYSQlcl-5.2.4-264.x86_64"; <-- split this word into array as (5 2 4 264) ( which is to extract only the version number from the package name) my... (1 Reply)
Discussion started by: solaix14
1 Replies

10. Shell Programming and Scripting

Perl : to get the no. of elements from DataDumper

Hello Folks, I have a DataDumper variable and the output of the dataDumper is printed in the below manner. print Dumper \%mnemonics; VAR1 = { 'SYS-7-CLI_SCHEDULER_LOG_STORED' => , 'CRYPTO-6-IKMP_MODE_FAILURE' => , 'AAAA-4-SERVUNDEF' => , ... (1 Reply)
Discussion started by: scriptscript
1 Replies

LEARN ABOUT DEBIAN

gnome2::uidefs

Gnome2::UIDefs(3pm)					User Contributed Perl Documentation				       Gnome2::UIDefs(3pm)

NAME

       Gnome2::UIDefs

METHODS

   scalar = Gnome2::UIDefs->key_mod_clear
   scalar = Gnome2::UIDefs->key_mod_close
   scalar = Gnome2::UIDefs->key_mod_close_window
   scalar = Gnome2::UIDefs->key_mod_copy
   scalar = Gnome2::UIDefs->key_mod_cut
   scalar = Gnome2::UIDefs->key_mod_find
   scalar = Gnome2::UIDefs->key_mod_find_again
   scalar = Gnome2::UIDefs->key_mod_new
   scalar = Gnome2::UIDefs->key_mod_new_game
   scalar = Gnome2::UIDefs->key_mod_new_window
   scalar = Gnome2::UIDefs->key_mod_open
   scalar = Gnome2::UIDefs->key_mod_paste
   scalar = Gnome2::UIDefs->key_mod_pause_game
   scalar = Gnome2::UIDefs->key_mod_print
   scalar = Gnome2::UIDefs->key_mod_print_setup
   scalar = Gnome2::UIDefs->key_mod_quit
   scalar = Gnome2::UIDefs->key_mod_redo
   scalar = Gnome2::UIDefs->key_mod_redo_move
   scalar = Gnome2::UIDefs->key_mod_replace
   scalar = Gnome2::UIDefs->key_mod_save
   scalar = Gnome2::UIDefs->key_mod_save_as
   scalar = Gnome2::UIDefs->key_mod_select_all
   scalar = Gnome2::UIDefs->key_mod_undo
   scalar = Gnome2::UIDefs->key_mod_undo_move
   scalar = Gnome2::UIDefs->key_name_clear
   scalar = Gnome2::UIDefs->key_name_close
   scalar = Gnome2::UIDefs->key_name_close_window
   scalar = Gnome2::UIDefs->key_name_copy
   scalar = Gnome2::UIDefs->key_name_cut
   scalar = Gnome2::UIDefs->key_name_find
   scalar = Gnome2::UIDefs->key_name_find_again
   scalar = Gnome2::UIDefs->key_name_new
   scalar = Gnome2::UIDefs->key_name_new_game
   scalar = Gnome2::UIDefs->key_name_new_window
   scalar = Gnome2::UIDefs->key_name_open
   scalar = Gnome2::UIDefs->key_name_paste
   scalar = Gnome2::UIDefs->key_name_pause_game
   scalar = Gnome2::UIDefs->key_name_print
   scalar = Gnome2::UIDefs->key_name_print_setup
   scalar = Gnome2::UIDefs->key_name_quit
   scalar = Gnome2::UIDefs->key_name_redo
   scalar = Gnome2::UIDefs->key_name_redo_move
   scalar = Gnome2::UIDefs->key_name_replace
   scalar = Gnome2::UIDefs->key_name_save
   scalar = Gnome2::UIDefs->key_name_save_as
   scalar = Gnome2::UIDefs->key_name_select_all
   scalar = Gnome2::UIDefs->key_name_undo
   scalar = Gnome2::UIDefs->key_name_undo_move
   scalar = Gnome2::UIDefs->pad
   scalar = Gnome2::UIDefs->pad_big
   scalar = Gnome2::UIDefs->pad_small
SEE ALSO

       Gnome2

COPYRIGHT

       Copyright (C) 2003-2004 by the gtk2-perl team.

       This software is licensed under the LGPL.  See Gnome2 for a full notice.

perl v5.14.2							    2011-11-16						       Gnome2::UIDefs(3pm)
All times are GMT -4. The time now is 07:49 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy