Sponsored Content
Top Forums Shell Programming and Scripting Perl output with negative and positive numbers Post 302380621 by rbl-blacklight on Tuesday 15th of December 2009 04:47:17 PM
Old 12-15-2009
Perl output with negative and positive numbers

Hello,

For my weather station I have made a little perl script to put the data into cacti. The next problem I have.
I can only get positive numbers or negative numbers.

What do I do:
Though a shell scrip I call the perl script.
Shell script:
Code:
#!/bin/sh
cat data.txt | stats.pl

Perl script:
Code:
while(<STDIN>) {
chomp;
if (s/^buiten_t[ ]*[:][ ]*(\D+\.*\d+\.*\d+).*/\1/) {
print "buiten_t:$_ ";
}

Whith this input I can only get the negative numbers.
Like Buiten_t:-6.5
When I do:
Code:
if (s/^buiten_t[ ]*[:][ ]*(\d+\.*\d+).*/\1/) {

I get only the positive numbers.
Buiten_t:28.6

If I let the
Code:
if (s/^buiten_t[ ]*[:][ ]*(\D+\.*\d+\.*\d+).*/\1/) {

for the positive numnbers there is a space in the output.
The ouput is then Buiten_t: 28.6

How do I make the script the it can workt with both settings?
Output like Buiten_t:-6.5 or Buiten_t:28.6

thnx

Last edited by Scott; 12-15-2009 at 06:06 PM.. Reason: Please use code tags - and no fancy colours and fonts. Reading RE's is hard enough. Thanks.
 

8 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Help in adding positive & negative values in a column

Hi Gurus, In my file I have an amount field from position 74 to 87, which contains values starting with '+' as well as '-'. I want to add all positive values in a varible called "CREDIT" and all negative values in a variable "DEBIT". I know, we can use grep to identify values with positive and... (4 Replies)
Discussion started by: berlin_germany
4 Replies

2. Shell Programming and Scripting

Finding the most positive and negative value and defining its position

Hi, I have a file that looks like this: Jake 2 3 4 6 4 3 -2 -1 Jerry 1 2 3 2 1 7 -6 -1 Timmy -1 -4 -5 -8 9 3 1 I want to find the most positive and negative value for each row and also define its position (based on column #) So the output would look... (7 Replies)
Discussion started by: gisele_l
7 Replies

3. Shell Programming and Scripting

Sorting positive and negative values

Hello, I have a list like this : 1 2 -4 0 -3 -7 5 6 etc. Is there a way to remove all the positive values and print only the negative values, without using grep, sed or awk? Thanks, Prasanna (4 Replies)
Discussion started by: prasanna1157
4 Replies

4. Shell Programming and Scripting

addition of both positive and negative numbers

Let, I have three numbers +00123.25 -00256.54 +00489.23 I need to sum up all those three numbers, after storing them in three variables (say var1, var2, var3). I used both expr and BC, but they didn't work for me. But, I am not able to sum up them, as I don't have any idea how to... (13 Replies)
Discussion started by: mady135
13 Replies

5. Shell Programming and Scripting

Find Where Values Change From Positive To Negative and viceversa

Hi all, I have a file that looks like shown below. I want to find places where the value in column 2 change from negative to positive and vice versa and return the value on column 1 at that point. I wonder if this is possible in shell script or awk .. please help! Here is the original data ... (6 Replies)
Discussion started by: malandisa
6 Replies

6. Shell Programming and Scripting

Splitting a file based on positive and negative numbers

Dear All, I have to split a tab delimited file in two files based on the presence of a positive or negative in column number 9 , for example file: A 1 5 erg + 6766 0.9889 0.9817 9.01882 erg inside upstream B 1 8 erg2 + 6766 0.9889 0.9817 -9.22 erg2 inside... (3 Replies)
Discussion started by: paolo.kunder
3 Replies

7. UNIX for Beginners Questions & Answers

Converting negative number to positive in a file

Hi ALL, I am having semi column separated file as below. I am having negative values for the records starting with 11095. How can I convert that positive number I tried this below seems not working sed 's/ \(*\)$/ -\1/;t;s/\(.*\)-/\1/ myfile myfile... (6 Replies)
Discussion started by: arunkumar_mca
6 Replies

8. UNIX for Beginners Questions & Answers

Splitting a file based on negative and positive numbers

I have a file that is pipe delimited and in Column F they have number values, both positive and negative. I need to take the one file I am starting with and split it into two separate files based on negative and positive numbers. What is the command to do so? And then I need to also transfer... (4 Replies)
Discussion started by: cckaiser15
4 Replies
ePerl(3pm)						User Contributed Perl Documentation						ePerl(3pm)

NAME
Parse::ePerl - Perl interface to the ePerl parser SYNOPSIS
use Parse::ePerl; $rc = Parse::ePerl::Preprocess($p); $rc = Parse::ePerl::Translate($p); $rc = Parse::ePerl::Precompile($p); $rc = Parse::ePerl::Evaluate($p); $rc = Parse::ePerl::Expand($p); DESCRIPTION
Parse::ePerl is the Perl 5 interface package to the functionality of the ePerl parser (see eperl(1) for more details about the stand-alone program). It directly uses the parser code from ePerl to translate a bristled script into a plain Perl script and additionally provides functions to precompile such scripts into P-code and evaluate those scripts to a buffer. All functions are parameterized via a hash reference $p which provide the necessary parameters. The result is a return code $rc which indicates success(1) or failure(0). PREPROCESSOR: $rc = Parse::ePerl::Preprocess($p) This is the ePerl preprocessor which expands "#include" directives. See eperl(1) for more details. Possible parameters for $p: Script Scalar holding the input script in source format. Result Reference to scalar receiving the resulting script in bristled Perl format. BeginDelimiter Scalar specifying the begin delimiter. Default is ``"<:"''. EndDelimiter Scalar specifying the end delimiter. Default is ``":>"''. INC A reference to a list specifying include directories. Default is "@INC". TRANSLATION: $rc = Parse::ePerl::Translate($p) This is the actual ePerl parser, i.e. this function converts a bristled ePerl-style script (provided in "$p-"{Script}> as a scalar) to a plain Perl script. The resulting script is stored into a buffer provided via a scalar reference in "$p-"{Result}>. The translation is directly done by the original C function Bristled2Plain() from ePerl, so the resulting script is exactly the same as with the stand-alone program eperl. Possible parameters for $p: Script Scalar holding the input script in bristled format. Result Reference to scalar receiving the resulting script in plain Perl format. BeginDelimiter Scalar specifying the begin delimiter. Default is ``"<:"''. EndDelimiter Scalar specifying the end delimiter. Default is ``":>"''. CaseDelimiters Boolean flag indicating if the delimiters are case-sensitive (1=default) or case-insensitive(0). Example: The following code $script = <<'EOT'; foo <: print "bar"; :> quux EOT Parse::ePerl::Translate({ Script => $script, Result => $script, }); translates the script in $script to the following plain Perl format: print "foo "; print "bar"; print " "; print "quux "; COMPILATION: $rc = Parse::ePerl::Precompile($p); This is an optional step between translation and evaluation where the plain Perl script is compiled from ASCII representation to P-code (the internal Perl bytecode). This step is used in rare cases only, for instance from within Apache::ePerl(3) for caching purposes. Possible parameters for $p: Script Scalar holding the input script in plain Perl format, usually the result from a previous Parse::ePerl::Translate(3) call. Result Reference to scalar receiving the resulting code reference. This code can be later directly used via the &$var construct or given to the Parse::ePerl::Evaluate(3) function. Error Reference to scalar receiving possible error messages from the compilation (e.g. syntax errors). Cwd Directory to switch to while precompiling the script. Name Name of the script for informal references inside error messages. Example: The following code Parse::ePerl::Precompile({ Script => $script, Result => $script, }); translates the plain Perl code (see above) in $script to a code reference and stores the reference again in $script. The code later can be either directly used via &$script instead of "eval($script)" or passed to the Parse::ePerl::Evaluate(3) function. EVALUATION: $rc = Parse::ePerl::Evaluate($p); Beside Parse::ePerl::Translate(3) this is the second main function of this package. It is intended to evaluate the result of Parse::ePerl::Translate(3) in a ePerl-like environment, i.e. this function tries to emulate the runtime environment and behavior of the program eperl. This actually means that it changes the current working directory and evaluates the script while capturing data generated on STDOUT/STDERR. Possible parameters for $p: Script Scalar (standard case) or reference to scalar (compiled case) holding the input script in plain Perl format or P-code, usually the result from a previous Parse::ePerl::Translate(3) or Parse::ePerl::Precompile(3) call. Result Reference to scalar receiving the resulting code reference. Error Reference to scalar receiving possible error messages from the evaluation (e.g. runtime errors). ENV Hash containing the environment for %ENV which should be used while evaluating the script. Cwd Directory to switch to while evaluating the script. Name Name of the script for informal references inside error messages. Example: The following code $script = <<'EOT'; print "foo "; print "bar"; print " "; print "quux "; EOT Parse::ePerl::Evaluate({ Script => $script, Result => $script, }); translates the script in $script to the following plain data: foo bar quux ONE-STEP EXPANSION: $rc = Parse::ePerl::Expand($p); This function just combines, Parse::ePerl::Translate(3) and Parse::ePerl::Evaluate(3) into one step. The parameters in $p are the union of the possible parameters for both functions. This is intended as a high-level interface for Parse::ePerl. AUTHOR
Ralf S. Engelschall rse@engelschall.com www.engelschall.com SEE ALSO
eperl(1) Web-References: Perl: perl(1), http://www.perl.com/ ePerl: eperl(1), http://www.engelschall.com/sw/eperl/ perl v5.14.2 2012-04-07 ePerl(3pm)
All times are GMT -4. The time now is 08:56 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy