Dotaz: Perl a převod -abc na -a -b -c

[David Watzke]

Ahoj,

éra stupidních titulků pokračuje Tentokrát bych potřeboval poradit jak převést string (v proměnný) "-abc" do pole na "-a -b -c"... přemýšlel jsem o cyklu, jenže za prvé nevím jak získat počet znaků v proměnný a za druhý jak z proměnný vypsat jen n-tej znak ... no tohle jsem zatím vymyslel:

for $no ( 1 .. (počet znaků v proměnný $_) ) {
  push @sopts, $_; # ale $_ donutit tisknout jen $no-tej znak
}

Nebo že by se to dalo udělat pomocí regexpu? To ale nevím, nic mě nenapadlo...

Odpovědi

[myšák]

No, není to žádný zázrak, ale mělo by to fungovat:

#!/usr/bin/perl -w

my @attrib = ();
my $i = 0;

$attributy = $ARGV[0];
$attributy =~ s/^\-//;

$length = length($attributy);

while ($i < $length){
   $attrib[$i] = "-" . substr($attributy, $i++, 1);
   print "attrib $i = $attrib[$i]\n";
}

Odborníky na PERL prosím o shovívavost ...

[Arno3t]

Pokud Ti nevadi opacne poradi, mohlo by byt efektivni toto

$aaa="-abc";
while ($aaa) {
push (@uuu, chop $aaa);
}

a v poli @uuu mas vsechny znaky z $aaa vcetne podtrzitka v opacnem poradi.

[Filip Jirsák]

Nevím, jestli je dobré učit se programovat zrovna na Perlu… Funkce vracející délku řetezce je length(řetězec). Získání podřetězce z řetězce dělá funkce substr(řetězec, start, kolik). Pomocí regexpu by to šlo také, ale zbytečně složitě a neefektivně.

[David Watzke]

Nevím, jestli je dobré učit se programovat zrovna na Perlu…

Líbí se mi

Funkce vracející délku řetezce je length(řetězec).

A já vůl zkoušel lenght. Furt se mi to plete

---

Všem: díky za odpovědi

[Filip Jirsák]

Nevím, jestli je dobré učit se programovat zrovna na Perlu…

Líbí se mi … A já zkoušel lenght. Furt se mi to plete

Zkoušel a Perl už IMHO vůbec nejde dohromady Nechci nikoho podceňovat, ale myslím, že nejde metodou pokus–omyl přijít na to, že $_ je implicitní prostor pro vstup, výstup a vyhledávání, $, je výstupní oddělovač polí, @_ jsou parametry podprogramu, %ENV jsou proměnné prostředí atd. atp. Aspoň referenční manuál by to chtělo Taky můžu doporučit knížku Perl pro zelenáče od Pavla Satrapy (a to nejenom pro zelenáče ).

Mně se Perl taky líbil, ale když jsem se po nějaké době k nějakému skriptu vrátil, zjistil jsem, že Perl je write-only Pak jsem napsal skoroprogram, který obsahoval třeba toto:

foreach $prom (sort(keys(%{$zdroje{$jmeno}})))
    {
      if ((substr($prom,0,1) eq '') || (substr($prom,0,1) !~ /^\w/i))
      {
        print SPECIALNI "<h3 class='promenna'>$prom</h3>\n";
        $text = $zdroje{$jmeno}{$prom};
	do {
	  $REcount = ($text =~ s/\?\{([^}:]*)\}/&_nahraditGlobals($1)/ge);
	  $REcount += ($text =~ s/\?\{([^}:]*):([^{}]*(?:(?:\$|\*)\{[^{}]*(?:\*\{[^}]*\}[^{}]*)*[^{}]*\}[^{}]*)*[^{}]*)\}/&_nahraditGlobalsParametr($1,$2,$blok)/ge);
	} while ($REcount > 0);
        $text =~ s/(\$\{[^}:]*\})/<span class='vypisPromenne'>$1<\/span>/g;
        $text =~ s/(\$\{[^}:]*:[^{}]*(?:\*\{[^}]*\}[^}]*)*\})/<span class='vypisPromenne'>$1<\/span>/g;
        print SPECIALNI $text;
      }
      else …

A to byla poslední věc, kterou jsem v Perlu napsal

[zabza]

Psát nečitelné programy jde v každém jazyce (i když uznávám, že perl k tomu svádí )

[ivok@zero ~]$ perl -e 'print join " -", split //, "-abc"; print "\n"'
- -a -b -c

[Filip Jirsák]

Zatímco všechna předchozí řešení byla vlastně přepis klasického Céčkového algoritmu do Perlu, tohle je myslím opravdu Perlovské řešení Krátké na zápis, ale po přečtení usoudím, zda to rozdělí po písmenkách nebo schramstne celý string najednou, snad jen podle toho, že používat split na to, abych dostal celý řetězec, by byla blbost

Teď už zbývá jen nějak logicky zdůvodnit, proč v Javě, která IMHO vede naopak k tomu psát čitelné programy (ale někteří se úspěšně brání ) se String.split("") chová úplně stejně, a to bez jakékoliv zmínky v dokumentaci. Asi to bude tím, že programátor v Javě neuvidí žádnou výhodu v tom, že může cyklus přepsat do jednoho řádku programu a nenapadne ho zkoušet, jak se rozdělí řetězec, když se má dělit v místě, kde je nic

Pro Davida: to, co předvedl ivok, je myslím to správné perlovské řešení (přestože Perl se chlubí tím, že každá věc jde napsat mnoha způsoby). Takže pokud se chcete naučet přemýšlet o tom, jak sestavovat algoritmy, Perlu bych se zatím vyhnul. Pokud se naopak chcete naučit přemýšlet jako hacker (v původním smyslu slova), s minimem nástrojů dosahovat maximálních výsledků a nástroje používat ne zrovna obvyklým způsobem (ale přesto elegantně), je Perl ta pravá volba.

[David Watzke]

Pokud se naopak chcete naučit přemýšlet jako hacker (v původním smyslu slova), s minimem nástrojů dosahovat maximálních výsledků a nástroje používat ne zrovna obvyklým způsobem (ale přesto elegantně), je Perl ta pravá volba.

That's what I'm talkin' about, yo

[David Watzke]

Díky, tohle je... hustý.

[Jan Martinek]

Já vím, chtěl jsi perl, ale ...
Takhle je to v Pythonu:

['-'+x for x in '-abc'[1:]]

[David Watzke]

I to se bude hodit... ale až časem, až budu Perl guru

[David Watzke]

Stáhnul jsem si seriál o Perlu z LinuxSoftu (verzi pro tisk), na druhý ploše si vždy otevřu Links a gVim a zkoumám; takže jsem to nezjistil metodou pokus omyl. Zkoušel jsem prošmejdit ty články, Google a najít to, ale nic... Btw, hustej program , skoro jako ten Perl / Unix hacker na wikipedii od Larryho

[gat.centrum]

Ahoj, koukni sem.

[David Watzke]

Ten znám , ale dík.