Új hozzászólás Aktív témák

• #45 Mijo tag Osiris #44

  Új Válasz 2012-07-26 17:11:43 #45

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mijo

  tag

  válasz Osiris #44 üzenetére

  Kezdetnek ezt a cikket, cikksorozatot megnézhetnéd, elég jól magyarázza az alapokat.
  http://prog.hu/cikkek/443/Mintaillesztesek.html

  Ha biztos vagy abban, hogy tab szeparált a sorod, ezt is használhatod:

  $orszagnev = "USA Amerikai Csendes-óceáni szigetek 581 UMI UM ISO 3166-2:U";
  chomp( $orszagnev );
  @rekordok = split( /\t/, $orszagnev );
  print "$rekordok[0]\n";

  Üdv: Mijo

• #43 Mijo tag Osiris #42

  Új Válasz 2012-07-26 16:00:53 #43

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mijo

  tag

  válasz Osiris #42 üzenetére

  Azok a reguláris kifejezésből kapják az értéket, a ( és ) közötti részeket veszik fel.
  $str = 'abcdef';
  $str =~ m/(...)(...)/;
  print $1; # 'abc'
  print $2; # 'def'

  Amit linkeltem doksi oldal szépen leírja az összes lehetőséget. Ha magyarul szeretnéd inkább és nem ilyen mélységekben, ezt nézd meg:
  http://nyelvek.inf.elte.hu/leirasok/Perl/

  Üdv: Mijo

• #41 Mijo tag Osiris #40

  Új Válasz 2012-07-25 18:24:15 #41

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mijo

  tag

  válasz Osiris #40 üzenetére

  Szia!

  Ha a számok kellenek, akkor ezt a reguláris kifejezést tudom javasolni:
  $sor =~ m/^[^\d]*(\d{3})/;
  $szam = $1;

  Ha a tényleg a pozíció érdekel:
  $sor =~ m/^([^\d]*)\d{3}/;
  $poz = length( $1 );

  És ezt lehet kombinálni is.
  $sor =~ m/^([^\d]*)(\d{3})/;
  $poz = length( $1 );
  $szam = $2;

  Ajánlott olvasmány, ha Perlben sztringeket kell szabni-varrni:
  http://perldoc.perl.org/perlre.html

  Üdv: Mijo

• #35 Mijo tag Osiris #33

  Új Válasz 2011-03-03 00:42:07 #35

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mijo

  tag

  válasz Osiris #33 üzenetére

  Gondolom már nem aktuális, de jól esett kitalálni a megoldást:

  #!/usr/bin/perl
  
  use strict;
  
  my @input = (
  '1.+Béla',
  'Örök+Eutanázia+Roberta',
  'Kiss+Miska+András',
  'Aaa+Aaa',
  );
  
  sub def_k {
  shift =~ m/\+([^+]+)/;
  return $1 || "";
  }
  
  my @output =
  #map { $_->{'o'}}
  sort { $a->{'k'} cmp $b->{'k'} }
  map +{ 'o'=>$_, 'k'=> def_k($_) }, @input;
  
  foreach my $o (@output) {
  #print join( "\n", @output );
  print $o->{'k'}.' -- '.$o->{'o'}."\n";
  }

  Az alkalmazott ötlet a http://en.wikipedia.org/wiki/Schwartzian_transform. A két kommentelt sor a teszteléshez van, élesben az első map veszi ki az eredeti stringeket a hashekből.
  Remélem valakinek még hasznos lesz!
  Üdv: Mijo

• #34 alapz@j tag Osiris #33

  Új Válasz 2010-11-07 21:13:24 #34

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  alapz@j

  tag

  válasz Osiris #33 üzenetére

  Ezen az oldalon alul vannak példák az ilyen rendezésekre.

Új hozzászólás Aktív témák