Hallo,

Ik heb een text file met verschillende records, ik wil op deze een
rekenbewerking loslaten.

De vier getalen na het "=" teken wil ik vermenigvuldigen met vier, het
laatste getal niet.

19970522000000=1.68,1.68,1.63,1.66,50384
19970523000000=1.66,1.68,1.63,1.68,51213
19970526000000=1.68,1.68,1.61,1.68,28505
19970527000000=1.68,1.68,1.63,1.68,52228
19970528000000=1.66,1.68,1.63,1.68,118430
19970529000000=1.66,1.68,1.61,1.68,260400
19970530000000=1.66,1.66,1.59,1.63,151400
19970602000000=1.63,1.68,1.59,1.68,408740

Iemand een idee hoe ik dat voorelkaar kan krijgen?

GG
Kees
--
Q:      Why did Captain Kirk piss on the bridge?
A:      He wanted to boldly go where no man had gone before!
Visit me @ http://www.xs4all.nl/~kostercd/  |  ICQ #179658498  -- # EOE

gawk 'BEGIN {FS=",|=";} { printf "%14d=%0.02f,%0.02f,%0.02f,%0.02f,%d\n",$1
$2*4, $3*4, $4*4, $5*4,$6}' input > output

Eric

Hartelijk dank Eric,

Hij werkt nog niet geheel zoals het moet maar hiermee kom ik er wel.

GG
Kees
--
I am myself plus my circumstance, and if I do not save it, I cannot
save myself.
                -- Jos' e Ortega Y Gasset
Visit me @ http://www.xs4all.nl/~kostercd/  |  ICQ #179658498  -- # EOE

Kees de Koster wrote (Tuesday 22 February 2005 08:47):

Met een Perl scriptje bijv.:

use strict;
use warnings;

my $line;
my ($be, $ae); # before equal sign, after equal sign
my @numbers;
while ($line = <DATA>) {
    ($be, $ae) = split /=/, $line;
    @numbers = split /,/, $ae;
    pop @numbers;
    @numbers = map {$_ * 4} @numbers;
    print join " ", map {"[$_]"} @numbers;
    print "\n";

__DATA__
19970522000000=1.68,1.68,1.63,1.66,50384
19970523000000=1.66,1.68,1.63,1.68,51213
19970526000000=1.68,1.68,1.61,1.68,28505
19970527000000=1.68,1.68,1.63,1.68,52228
19970528000000=1.66,1.68,1.63,1.68,118430
19970529000000=1.66,1.68,1.61,1.68,260400
19970530000000=1.66,1.66,1.59,1.63,151400
19970602000000=1.63,1.68,1.59,1.68,408740

[6.72] [6.72] [6.52] [6.64]
[6.64] [6.72] [6.52] [6.72]
[6.72] [6.72] [6.44] [6.72]
[6.72] [6.72] [6.52] [6.72]
[6.64] [6.72] [6.52] [6.72]
[6.64] [6.72] [6.44] [6.72]
[6.64] [6.64] [6.36] [6.52]
[6.52] [6.72] [6.36] [6.72]

--
KP
Ik krijg overigens uitsluitend virussen van mensen met een
virusscanner. Mensen zonder virusscanner sturen mij nooit
virussen. Gek he? --- V. Sessink in nl.comp.os.linux.overig

declareer vars waar je ze gebruikt. Daarnaast, $before_equal,
$after_equal had je dat commentaar kunnen besparen :-D.

while ( my $line = <DATA> )

      dus hier: my ( $be, $ae )

Andere oplossing:

my ( @numbers ) = $line =~ /(\d+\.\d+)/g;

print "[",

    join ( "] [", map { $_ * 4 } @numbers ),

    "]\n";

Als de getallen in een bestand staan, kan:

#!perl -n

use strict;
use warnings;

my ( @numbers ) = $_ =~ /(\d+\.\d+)/g;

print "[",

    join ( "] [", map { $_ * 4 } @numbers ),

    "]\n";

handig zijn (zie perl -h voor de -n optie)

Of wellicht:

#!perl -n

use strict;
use warnings;

my ( $stamp, @numbers ) = split /[=,]/;
my $count = pop @numbers;

print "$stamp=",

    join ( ",", map { $_ * 4 } @numbers ),

    ",$count";

( merk op dat $count de \n nog bevat )

En een meer awky oplossing:

#!perl -naF[=,]
printf "%14s=%0.02f,%0.02f,%0.02f,%0.02f,%d\n",
    $F[ 0 ], ( map { $_ * 4 } @F[ 1..4 ] ), $F[ 5 ];

De "one liner" is left as an excercise ;-)

( merk op: %14s ipv %14d, getal was hier te groot (WinXP) )

--
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html

John Bokma wrote (Tuesday 22 February 2005 18:58):

Nee, want dan haal je de my binnen de loop. En bij een loop van
een miljoen, wil je die er echt buiten hebben :-p

Die gebruikte ik vroeger ook altijd. Ben deze

een keer in clpm tegen gekomen en vindtum wel zo fraai.

AAAAARRRRGHHHH!!!!
'dorie John, hou daar nu eens me op!

--
KP
Ik krijg overigens uitsluitend virussen van mensen met een
virusscanner. Mensen zonder virusscanner sturen mij nooit
virussen. Gek he? --- V. Sessink in nl.comp.os.linux.overig

Toen ik Koos Pol kietelde, kwam er dit uit:

Zou je denken? In sommige talen klopt je denkrichting wel,
maar in andere (gecompileerde) talen wordt op die manier
de variabele nog steeds maar eenmalig opgezet, en daarmee
beperk je zo mooi de scope van die variabele, want hij is
echt 'weg' (onbereikbaar) na de loop.

De vraag is dus: hoe doet perl het.
En perl doet het precies zoals John impliceerde:

A declaration can be put anywhere a statement can, but has no effect
on the execution of the primary sequence of statements -- declarations
all take effect at compile time.
Typically all the declarations are put at the beginning or the end of
the script. However, if you're using lexically-scoped private variables
created with my(), you'll have to make sure your format or subroutine
definition is within the same block scope as the my if you expect to
be able to access those private variables.

Ofwel: alle declaraties worden door de compiler gedaan alsof ze
voorin staan. De scope van de door 'my()' gemaakte variabelen
is beperkt tot de block-scope van het block waarin ze staan.

--
Affijn, Ruud   `  -  ´
               + ` ´ *
                 ´ `     Jvr qvg yrrfg,
               ´  =  `   fgresg wbatre.

Dr.Ruud <rvtol+n...@isolution.nl>:
 > A declaration can be put anywhere a statement can, but has no effect
 > on the execution of the primary sequence of statements -- declarations
 > all take effect at compile time.

 $ perl bench 100
 Benchmark: timing 100 iterations of in loop, out loop...
   in loop: 11 wallclock secs (10.03 usr +  0.00 sys = 10.03 CPU) @  9.97/s (n=100)
  out loop:  6 wallclock secs ( 5.54 usr +  0.00 sys =  5.54 CPU) @ 18.05/s (n=100)

De code:
 'in loop'  => sub { for (my $i = 0; $i < $num; $i++) { my ($a, $b); } }
 'out loop' => sub { my ($a, $b); for (my $i = 0; $i < $num; $i++) { } }
 ($num = 100000, v5.8.1-RC3)

 > Ofwel: alle declaraties worden door de compiler gedaan alsof ze voorin
 > staan. De scope van de door 'my()' gemaakte variabelen is beperkt tot de
 > block-scope van het block waarin ze staan.

En kennelijk kost de check of een variabele in scope is of niet toch wel
enige rekenkracht.

--
                                                                     robert

On woensdag 23 februari 2005 13:55 Dr.Ruud wrote:

Klopt. Maar zoals robert terecht al liet ziet, het punt is niet de
feitelijke declaratie, maar het bepalen van de scope.

Koos
--
43rd Law of Computing: Anything that can go wr
fortune: Segmentation violation -- Core dumped

Omdat?

Oh, maar er zit weinig verschil in, alleen doe ik stiekem die maal 4 ook
in die map.

Die 14 kan vast weg voor die %, maakt het weer leesbaarder, toch?

--
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html

Benchmark: timing 100 iterations of in, out...
        in: 104 wallclock secs (86.56 usr +  0.02 sys = 86.58 CPU) @  
1.16/s (n=100)
       out: 85 wallclock secs (76.64 usr +  0.01 sys = 76.66 CPU) @  
1.30/s (n=100)

use strict;
use warnings;

use Benchmark qw(:all) ;

timethese( 100, {

    'in' => sub {

        my ( $a, $b );

        for ( my $i = 0; $i < 1000000; $i++ ) {

            $a = undef;
            $b = undef;
            $a += $i;
            $b += $i;
        }
    } ,

    'out' => sub {

        for ( my $i = 0; $i < 1000000; $i++ ) {

            my ( $a, $b );

            $a += $i;
            $b += $i;
        }
    } ,

This is perl, v5.8.3 built for MSWin32-x86-multi-thread
(with 8 registered patches, see perl -V for more detail)

--
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html

Toen ik robert kietelde, kwam er dit uit:

Aha. Ik heb het net ook maar eens uitgeprobeerd, en het gaat zelfs
nog verder: de my-variabele wordt bij elke passage opnieuw opgezet,
met waarde 0.

  use strict;

  my $num = 10;

  my ($a, $b) = ("*A*", "*A*");
  print "A: a=$a, b=$b\n";

  sub inloop {
    print "\n-inloop--\n";
    print "{a=$a, b=$b}\n";
    for (my $i = 0; $i < $num; $i++) {
      my $a++;
      my $b += $a;
      print "{{a=$a, b=$b}}\n";
    }
    print "{a=$a, b=$b} !!!\n";
    print "-inloop--\n";
  }

  my ($a, $b) = ("*B*", "*B*");
  print "B: a=$a, b=$b\n";

  sub outloop {
    print "\n-outloop--\n";
    print "{a=$a, b=$b} !!!\n";
    my ($a, $b);
    for (my $i = 0; $i < $num; $i++) {
      $a++;
      $b += $a;
      print "{{a=$a, b=$b}}\n";
    }
    print "{a=$a, b=$b}\n";
    print "-outloop--\n";
  }

  my ($a, $b) = ("*C*", "*C*");
  print "C: a=$a, b=$b\n";

  inloop();
  print "a=$a, b=$b\n";

  outloop();
  print "a=$a, b=$b\n";

Zie ook:
http://perl.plover.com/FAQs/Namespaces.html

--
Affijn, Ruud   `  -  ?
               + ` ? *
                 ? `     Jvr qvg yrrfg,
               ?  =  `   fgresg wbatre.

undef zal je bedoelen, en ja, dat klopt :-D, sterker daar is niks mis mee.
En buiten het block waarin je ze definieert kan je ze niet meer gebruiken.

--
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html

Toen ik John Bokma kietelde, kwam er dit uit:

Je hebt in Perl dus een extra laag {} nodig om het 'netjes' te krijgen:
(netjes als in: de variabelen zijn na het block waarin ze gebruikt
worden, per direct niet meer beschikbaar)

  { my ($a, $b) = (0, 0);
    while (busy()) {
      $a++;
      $b += $a;
      print "$b ";
  } }

Een my in de for() veroorzaakt blijkbaar iets verborgens, dus dit:

   for (my $i = 0; $i < 10; $i++) { ...; }

is eigenlijk dit:

  { my $i;
    for ($i = 0; $i < 10; $i++) {
      ...;
  } }

Zie ook "Other Properties of my Variables" op die
URL:http://perl.plover.com/FAQs/Namespaces.html.

--
Affijn, Ruud   `  -  ?
               + ` ? *
                 ? `     Jvr qvg yrrfg,
               ?  =  `   fgresg wbatre.

Dat kan, en soms zie ik dat inderdaad wel eens, a la

{
  local ...
  ...

Yup, en heel handig dus. Aan de andere kant, in 99 van de 100 Perl
scripts zal je geen for zien op die manier :-D.

--
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html

[...]

[...]

Bedankt Koos, (en alle andere natuurlijk) ik heb je voorbeeld gebruikt
om het volgende Perl progje in elkaar te frutselen.

#v+
#!/usr/bin/perl

if ($#ARGV != 2) {
    print "usage: input-file output-file factor\n";
    exit;

$inputfile = $ARGV[0];
$outputfile = $ARGV[1];
$factor = $ARGV[2];

open(IF, $inputfile);
open(OF, ">$outputfile");

my $line;
my ($bl, $el);
my @numbers;
my $volume;

while ($line = <IF>) {
    ($bl, $el) = split /=/, $line;
    if ($bl > 19000000000000) {
        @numbers = split /,/, $el;
        $volume = pop @numbers;
        @numbers = map {$_ * $factor} @numbers;
        use integer;
        $volume = $volume / $factor;
        print OF $bl;
        print OF "=";
        print OF join "", map {"$_,"} @numbers;
        print OF $volume;
        print OF "\n";
    } else {
        print OF $line;
    }

close(IF);
close(OF);

exit;
#v-

<INPUT>
ChartPath=/home/sircrow/Qtstalker/data/Stocks/AAB
0=Plugin=HorizontalLine|Name=0|Value=19.9431|Plot=Main Plot|Color=#0055ff
19940103000000=8.15,8.36,8.13,8.33,2893070
19940104000000=8.35,8.35,8.26,8.26,4084400
19940105000000=8.33,8.33,8.28,8.3,5622470
20050218000000=21.16,21.28,21.08,21.16,6017510
20050221000000=21.17,21.19,20.82,20.88,6842220
BarType=0
CHARTOBJECTS=0
Plugin=Stocks
Symbol=AAB
Title=AAB
Type=Stock
</INPUT>

<OUTPUT> (factor = 4)
ChartPath=/home/sircrow/Qtstalker/data/Stocks/AAB
0=Plugin=HorizontalLine|Name=0|Value=19.9431|Plot=Main Plot|Color=#0055ff
19940103000000=32.6,33.44,32.52,33.32,723267
19940104000000=33.4,33.4,33.04,33.04,1021100
19940105000000=33.32,33.32,33.12,33.2,1405617
20050218000000=84.64,85.12,84.32,84.64,1504377
20050221000000=84.68,84.76,83.28,83.52,1710555
BarType=0
CHARTOBJECTS=0
Plugin=Stocks
Symbol=AAB
Title=AAB
Type=Stock
</OUTPUT>

Er zullen wel wat niet zulk mooie constructies inzitten maar tis m'n
eerste Perl progje, ga vanmiddag naar de bieb een Perl boek zoeken.

GG
Kees
--
momentum, n.:
        What you give a person when they are going away.
11:12:05 up 2 days,  1:47,  4 users,  load average: 0.27, 0.07, 0.05
Visit me @ http://www.xs4all.nl/~kostercd/  |  ICQ #179658498  -- # EOE

Kees de Koster wrote (Thursday 24 February 2005 11:13):

Voor een eerste frutsel ziet het er prima uit, hoor.

open(IF, $inputfile) || die "Can't open $inputfile ($!)";
open(OF, ">$outputfile") || die "Can't open $outputfile ($!)";

Ter controle of het wel gelukt is.

Kan wel. Maar

    if (( $bl =~ m|^\d{14}$| ) && ( $bl > 19000000000000)) {

is mooier. Dan weet je zeker dat je met een datum-getal van doen
hebt.

Kan wel. Maar mooier is een extra isolatie block. Voor de
programmeur is eea daarmee netter afgewerkt. (In dit specifieke
geval maakt het voor Perl niets uit.)

         {
              use integer;
              ...
         }

Of in een regel natuurlijk:

print OF "$bl=".join ("", map {"$_,"} @numbers).($volume/4)."\n";

"Learning Perl". Of als je't aandurft: "Programming Perl".

Succes.

--
KP
Ik krijg overigens uitsluitend virussen van mensen met een
virusscanner. Mensen zonder virusscanner sturen mij nooit
virussen. Gek he? --- V. Sessink in nl.comp.os.linux.overig

Toen ik John Bokma kietelde, kwam er dit uit:

Ja, maar wel verhullend, want de scope van de $var die in de for()
(of in de foreach) staat, heeft dan niet de scope van de
zichtbare {} waar hij tussen staat:

  use strict;

  sub demo
  {
    foreach my $text ("A", "B", "C") {
      print "text=$text\n";
    }
    print "text=$text\n";   # compilation-error
  }

  demo();

Als perl het al voor je doet, hoef je het niet zelf meer
te doen. Maar een rammelende syntax blijft het. Kan er even
iemand dit (op theoretische wijze) met C++ vergelijken?
Zoiets als:

  for (int i; i < 10; i++) {
    int a++;
    int b += a;
    cout << "a=", a, ", b=", b, '\n';
  }

(ongetest)

--
Affijn, Ruud   `  -  ?
               + ` ? *
                 ? `     Jvr qvg yrrfg,
               ?  =  `   fgresg wbatre.

[ snip for ( my ... ]

Dat is idem in Java, idem in C/C++, en wellicht nog in een aantal andere
talen precies hetzelfde :-D.

Ik bedoel dus een for met een index, meestal gebruik je dingen als:

for my $item ( @array ) { .. }

Je bedoelt het beperken van de scope of het resetten van de vars binnen de
lus?

--
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html

John Bokma <postmas...@castleamber.com>:
 >
 >> Toen ik John Bokma kietelde, kwam er dit uit:
 >
 > [ snip for ( my ... ]
 >> Ja, maar wel verhullend, want de scope van de $var die in de for() (of
 >> in de foreach) staat, heeft dan niet de scope van de zichtbare {} waar
 >> hij tussen staat:
 >
 > Dat is idem in Java, idem in C/C++, en wellicht nog in een aantal andere
 > talen precies hetzelfde :-D.

Ik heb m'n vingers wel eens gebrand aan vergelijkbare code in Javascript:
  for (var i = 0; i < 10; i++) { ... }

Daarmee declareer je een variabele 'i' die binnen het blok dat de for-lus
omvat geldig is, i.t.t. Perl, Java en C/C++ waar 'i' alleen in op het
for-statement-volgende blok geldig is.

--
                                                                     robert

Auw, en schande! Ik doe mijn best om dat te onthouden, want daar zou ik ook
instinken :-(

--
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html

 > #v+

Erg belangrijk om hier direct neer te zetten:

use strict;
use warnings;

leesbaarder:

unless ( @ARGV == 3 ) {

        print ...
        exit;

my ( $inputfile, $outputfile, $factor ) = @ARGV;

   or die "Can't open '$inputfile' for reading: $!";

idem.

Met een recente versie van Perl kan je ook:

open my $if, $inputfile or die...
open my $of, '>', $outputfile or die ...

doen

stop in de while

stop in de while

ditto

while ( my $line = <$if> ) {

        my ( $bl, $el ) = split /=/, $line;
        unless ( $bl > 19000000000000 )

                print $of $line;
                next;
        }

Dit is leesbaarder (vind ik), indien er niks te doen is, next.

          @numbers = split /,/, $el;
          $volume = pop @numbers;

Let op: $volume kan een \n bevatten, maar door
de vermenigvuldiging verderop raak je die kwijt.

            doe ik later :-D.

ai, dat is vrij ticky, sterker, ik zou het ergens weer uitzetten.

            $volume = int( $volume / $factor );

            print "$bl=",
                    join ( ",", map { $_ * $factor } @numbers ),
                    ",volume\n";

close $if or die "Can't close ... $!"; # [1]

Probeer Learning Perl (O'Reilly) en Perl Cookbook (O'Reilly) te pakken
te krijgen.

[1] recent gehad dat dit echt faalde, de buffer werd door de close weg
    geschreven, en .... er was geen ruimte meer op de HD :-D. Als je het
    helemaal mooi wilt doen: ( print ...... ) or die ...

[2] En de Koos speciaal voor vandaag:

#!perl -spaF[=,]

next unless $F[0] > 19000000000000;
$_ = "$F[ 0 ]=" . join ',', (

    map { $_ * $factor } @F[ 1..4 ]

), int( $F[ 5 ] / $factor ) . "\n"

convert.pl -factor=4 in.txt > out.txt

--
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html

Toen ik John Bokma kietelde, kwam er dit uit:

De 'implied braces'. (0 hits op google)

--
Affijn, Ruud   `  -  ?
               + ` ? *
                 ? `     Jvr qvg yrrfg,
               ?  =  `   fgresg wbatre.

[...]

De bovenstaande hadden ze niet, tis "Perl in 24 uur" geworden van
Clinton Pierce.

John en Koos bedankt voor de tips en correcties.

GG
Kees
--
Better hope you get what you want before you stop wanting it.
21:15:55 up 2 days, 11:50,  4 users,  load average: 0.06, 0.18, 0.31
Visit me @ http://www.xs4all.nl/~kostercd/  |  ICQ #179658498  -- # EOE

Er zijn meer talen die dat doen (Java, C, C++), dus ik zie het probleem
niet. Kwalijker (vind ik) is wat robert als voorbeeld gaf, dat de
variable ineens leeft buiten de lus, dus:

my $a;
for $a ( ... ) {}

en

for my $a ( ... ) {}

zijn dan equivalent.

Dan heb ik liever

{ my $a; for $a ( ... ) {}}

--
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html