Sponsored Content
Full Discussion: File Compare in PERL
Top Forums Shell Programming and Scripting File Compare in PERL Post 302072300 by cbkihong on Monday 1st of May 2006 09:30:21 AM
Old 05-01-2006
Quote:
Originally Posted by Cbish68
$diff = `fc c:\\temp\\AutoIndexService_log.tmp c:\\temp\\AutoIndexService_log.txt`;
Backticks returns the standard output of the command executed, not the return value. If the command does not generate any output, it is understandable that a test on $diff is empty.

See perlvar and look for the documentation on $? for a treatment on how to get the return value.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl - Compare 2 Arrays

Hi all, I have the following script where the contents of file1 and file2 would be something like this: file1: 56790,0,0,100998765 89756,0,0,100567876 867645,1,3,678777654 file2: 56790,0,0,100998765 65776,0,0,4766457890 +5896,0,0,675489876 What I then want to do is check if... (4 Replies)
Discussion started by: Donkey25
4 Replies

2. Shell Programming and Scripting

PERL - copy fiel contents to array then compare against other file

Basically to illuminate i want to take a file with mutliple lines, C:\searching4theseletters.txt a b c Read this into an array @ARRAY and then use this to compare against another file C:\inputletters.txt b o a c n a (9 Replies)
Discussion started by: bradleykins
9 Replies

3. Shell Programming and Scripting

compare 2 arrays in perl

Hi Im supposed to compare lines in a file : KB0005 1019 T IFVATVPVI 0.691 PKC YES KB0005 1036 T YFLQTSQQL 0.785 PKC YES KB0005 1037 S FLQTSQQLK 0.585 DNAPK YES KB0005 1045 S KQLESEGRS 0.669 PKC YES KB0005 1045 S KQLESEGRS 0.880 unsp YES KB204320 1019 T IFVATVPVI 0.699 PKC YES ... (7 Replies)
Discussion started by: karla
7 Replies

4. Shell Programming and Scripting

Compare arrays (perl)

Hi, my first post here! Description of my problem: I have one txt-file with six rows and each row contains seven numbers seperated with whitespaces. I want to: Compare one array with seven numbers with each row of numbers in the txt-file. I have managed to compare one array with... (6 Replies)
Discussion started by: mjoh
6 Replies

5. Shell Programming and Scripting

compare 5% and 40% in perl

hi everyone, how to compare 5% and 40% in perl, which one if bigger? Thanks (6 Replies)
Discussion started by: jimmy_y
6 Replies

6. UNIX for Dummies Questions & Answers

SOLVED: Text file compare using perl

I have two text file.... One text file contain in this format...... keyvalue.txt \SUM\SUM_cam.c \SUM\SUM_cam.h \SUM\SUM_command.c \SUM\SUM_command.h \SUM\SUM_dab.c \SUM\SUM_dmb.c \SUM\SUM_eventHandler.h \SUM\SUM_eventHandler_dab.c \SUM\SUM_eventHandler_dmb.c ... (6 Replies)
Discussion started by: suvenduperl
6 Replies

7. Shell Programming and Scripting

Perl Compare 2 Arrays

Hello, Consider the following 2 arrays: Array1 = qw(Fa0/0 Fa0/1 Fa0/2 Fa0/3); Array1 = qw(Fa0/1 Fa0/2 Fa0/3 Fa0/4); I want to compare the following 2 arrays as follows: Take specific action when elements of Array1 that doesn't exist in Array2 (in my example: Fa0/0). Take another... (4 Replies)
Discussion started by: ahmed_zaher
4 Replies

8. Shell Programming and Scripting

compare two value in array - Perl

Hi, I just wondering if I want to compare previous value to next value if it same count + 1 if not doesn't count how do we compare in Perl? Thank (2 Replies)
Discussion started by: guidely
2 Replies

9. Shell Programming and Scripting

perl: compare two arrays

Hi friends, I want to compare two arrays and find matched one using perl? Also, I want to delete unmatched one. Plz suggest me solution (1 Reply)
Discussion started by: Renesh
1 Replies

10. Shell Programming and Scripting

Compare two lists with perl

Hi everybody! I'm trying to delete some elements from a list with two elements on each row agreeing with the elements in another list. Pratically I want a perl script able to take each element of the second list (that is a single column list), compare it with both elements of each row from the... (3 Replies)
Discussion started by: gabrysfe
3 Replies
Poet::Import(3pm)					User Contributed Perl Documentation					 Poet::Import(3pm)

NAME
Poet::Import -- Import Poet quick vars and utilities SYNOPSIS
# In a script... use Poet::Script qw($conf $poet $log :file); # In a module... use Poet qw($conf $poet $log :file); DESCRIPTION
Poet makes it easy to import certain variables (known as "quick vars") and utility sets into any script or module in your environment. In a script: use Poet::Script qw(...); and in a module: use Poet qw(...); where "..." contains one or more quick var names (e.g. $conf, $poet) and/or utility tags (e.g. ":file", ":web"). (Note that "use Poet::Script" is also necessary for initializing the environment, even if you don't care to import anything, whereas "use Poet" has no effect other than importing.) QUICK VARS
Here is the built-in list of quick vars you can import. Some of the variables are singletons, and some of them are specific to each package they are imported into. $poet The global environment object, provided by Poet::Environment. This provides information such as the root directory and paths to subdirectories. For backward compatibility this is also available as $env. $conf The global configuration object, provided by Poet::Conf. $cache The cache for the current package, provided by Poet::Cache. $log The logger for the current package, provided by Poet::Log. UTILITIES
Default utilities The utilities in Poet::Util::Debug are always imported, with no tag necessary. :file This tag imports all the utilities in Poet::Util::File. :web This tag imports all the utilities in Poet::Util::Web. It is automatically included in all Mason components. MASON COMPONENTS
Every Mason component automatically gets this on top: use Poet qw($conf $poet :web); "$m->cache" and "$m->log" will get you the cache and log objects for a particular Mason component. CUSTOMIZING
Adding variables To add your own variable, define a method called provide_var_varname in "MyApp::Import". For example to add a variable $dbh: package MyApp::Import; use Poet::Moose; extends 'Poet::Import'; method provide_var_dbh ($caller) { # Generate and return a dbh. # $caller is the package importing the variable. # $poet is the current Poet environment. } "provide_dbh" can return a single global value, or a dynamic value depending on $caller. Now your scripts and libraries can do use Poet::Script qw($dbh); use Poet qw($dbh); Adding utility tags To add your own utility tag, define a class "MyApp::Util::Mytagname" that exports a set of functions via the ':all' tag. For example: package MyApp::Util::Hash; use Hash::Util qw(hash_seed all_keys); use Hash::MoreUtils qw(slice slice_def slice_exists); our @EXPORT_OK = qw(hash_seed all_keys slice slice_def slice_exists); our %EXPORT_TAGS = ( 'all' => @EXPORT_OK ); 1; Now your scripts and libraries can do use Poet::Script qw(:hash); use Poet qw(:hash); SEE ALSO
Poet AUTHOR
Jonathan Swartz <swartz@pobox.com> COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Jonathan Swartz. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. perl v5.14.2 2012-06-05 Poet::Import(3pm)
All times are GMT -4. The time now is 04:24 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy