[PERL] vraag mbt split en array

[Verwijderd]

-

[ Voor 108% gewijzigd door Verwijderd op 05-06-2016 10:17 ]

[Peter]

kan je geen replace uitvoeren (evt met preg zodat je een trim kan meenemen) op newlines naar komma's?

[Verwijderd]

-

[ Voor 100% gewijzigd door Verwijderd op 05-06-2016 10:17 ]

[Annie]

Mijn perl kennis is wat roestig, maar als ik me niet vergis kan je gewoon arrays push-en.

code:

push(@totaal_array, @split_van_regel);

/edit:
Ongetest, misschien dat dit werkt:

code:

open(FILE, "bestandje.txt");
@data=<FILE>;
close(FILE);

foreach $regel (@data)
{
  chop($regel);
  @split_van_regel = split(/,/, $regel);
  push(@totaal_array, @split_van_regel);
}

Perl kennende zal dit wel weer veel korter en obscuurder kunnen

[ Voor 59% gewijzigd door Annie op 10-01-2006 20:49 ]

[NMe]

.Peter bedoelt (in lekentaal) dat je gewoon enters kan vervangen door komma's. Normaal bestaat een "enter" uit een combinatie van twee karakters: een carriage return en een line feed. Afhankelijk van je OS kan een regeleinde gemarkeerd worden door CRLF, LFCR en LF (alleen een CR zal ook wel mogelijk zijn, maar ben ik nog niet tegengekomen).

Alles wat je moet doen is uitzoeken welk karakter in Perl staat voor beide tekens (meestal \r en \n), en (een combinatie van) deze karakters vervangen door een komma.

[Verwijderd]

-

[ Voor 100% gewijzigd door Verwijderd op 05-06-2016 10:17 ]

[Wolfboy]

-NMe- schreef op dinsdag 10 januari 2006 @ 20:38:
.Peter bedoelt (in lekentaal) dat je gewoon enters kan vervangen door komma's. Normaal bestaat een "enter" uit een combinatie van twee karakters: een carriage return en een line feed. Afhankelijk van je OS kan een regeleinde gemarkeerd worden door CRLF, LFCR en LF (alleen een CR zal ook wel mogelijk zijn, maar ben ik nog niet tegengekomen).

offtopic:
Windows gebruikt standaard CRLF
Linux gebruikt LF
Mac gebruikt CR

LFCR hoort niet te bestaan

_{correct me if i'm wrong}

[ Voor 62% gewijzigd door NMe op 10-01-2006 21:07 ]

[NMe]

Verwijderd schreef op dinsdag 10 januari 2006 @ 20:50:
Bedankt mensen. De push werkt al inderdaad.
De replace van de /n is ook interessant en ga ik ook nog proberen.
Leuk taaltje is het wel.

\n, niet /n.

Wolfboy schreef op dinsdag 10 januari 2006 @ 20:59:

offtopic:
Windows gebruikt standaard CRLF
Linux gebruikt LF
Mac gebruikt CR

LFCR hoort niet te bestaan

_{correct me if i'm wrong}

Hmm, ik dacht al dat er iets niet klopte toen ik die post maakte. Ik zou gezworen kunnen hebben dat de Mac \n\r gebruikte. Oh well, alleen \r is ook al tegendraads en eigenzinnig.

[muba]

code:

use strict;
use warnings;

open THEFILE, "<myfile" or die "Could not open file: $!";
my @content = <THEFILE>;
close THEFILE;

my @letters = ();

foreach my $line (@content) {
    my @currentletters = split /,/, $line;
    push @letters, split /,/, $line;
}

Ongetest, overigens

[BOOTZ]

MUBA, let je wel op dat er in de file een newline aan het eind van elke regel staat? Die moet je er even uitvissen, anders krijg je een aantal waardes met newlines er in. Hoe ik het zou doen, even uitgaande van linux-newlines:

Perl:

open THEFILE, "<myfile" or die "Could not open file: $!";
my @content = <THEFILE>;
close THEFILE;

my @letters = ();

foreach my $line (@content) {
    $line =~ s/\n//;
    push @letters, split(/,/, $line);
}

Wat ook nog zou kunnen is eerst globaal alle newlines vervangen door komma's, en dan kan je in 1 keer een array maken:

Perl:

open THEFILE, "<myfile" or die "Could not open file: $!";
my @content = <THEFILE>;
close THEFILE;

my $contents = "@content";
$contents =~ s/\n/,/g;
my @letters = split(/,/,$contents);

Al is de oplossing 'my $contents = "@content";' wel wat ranzig, het werkt wel

[Rowwan]

Om newlines te verwijderen kun je beter het commando chomp gebruiken.

[Verwijderd]

Een regeleinde kan idd ook een CR zijn. Classic Mac OS deed dat zo.
Het is uiteraard aan te raden chomp te gebruiken om regeleindes te verwijderen, maar het dient wel gezegd dat chomp dienst kan weigeren in het geval een bestand andere regeleindes heeft dan het OS waar het script op draait.

[muba]

BOOTZ schreef op woensdag 11 januari 2006 @ 09:21:
MUBA, let je wel op dat er in de file een newline aan het eind van elke regel staat? Die moet je er even uitvissen, anders krijg je een aantal waardes met newlines er in.

Ai. Daar heb je gelijk in. Niet op gelet

[Grum]

Perl:

my ( @array, $fh );
open $fh, '<', $file;
chomp and @array = (@array, split/,/) while(<$fh>);
close $fh;

en zo zijn er nog wel 10 manieren om het te doen.

[Annie]

^^

Annie schreef op dinsdag 10 januari 2006 @ 20:36:
Perl kennende zal dit wel weer veel korter en obscuurder kunnen