do {} until () anomalie? (Seite 2) (Allgemeines zu Perl)

lichtkind

2005-01-20 14:58

User since
2004-03-22
5703 Artikel
ModeratorIn + EditorIn

danke

do {{
next if ($answer == wxCANCEL);
&pce::edit::_save_positions;
$answer = &sniff_selection(0, $sci_frame->GetTextLength);
&pce::edit::_restore_positions;
}}
until (&pce::document::select_next == $first_doc);

das ist es! wenna uch nicht schön,a ber das ist ja perl, hier gehts um freude\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

Taulmarill

2005-01-20 15:03

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

Quote
das ist es! wenna uch nicht schön,a ber das ist ja perl

schöner (aka eleganter) fände ich folgendes:

Code: (dl )

while (&pce::document::select_next != $first_doc) {
    next if $answer == wxCANCEL;
    &pce::edit::_save_positions;
    $answer = &sniff_selection(0, $sci_frame->GetTextLength);
    &pce::edit::_restore_positions;
}

ist aber natürlich geschmackssache...

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

format_c

2005-01-20 15:21

User since
2003-08-04
1706 Artikel
HausmeisterIn

[quote=Dubu,20.01.2005, 12:06]format_c hat leider die interessantere Quelle dazu weggelassen:
...[/quote]
Hey. Du hast den Wink mit dem Zaunpfahl verstanden :-)
Gruß Alex

Effizente Linuxshell

lichtkind

2005-01-20 15:48

User since
2004-03-22
5703 Artikel
ModeratorIn + EditorIn

@Taumaril
das hätte ich auch von der optik vorgezogen nur deine schleife macht etwas anderes, und dieses andere verhalten möchte ich für mein programm nicht.

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

Taulmarill

2005-01-20 17:04

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

@lichtkind: oh, ja, jetzt seh' ich's auch. war wohl nen bischen blind.

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

Strat

2005-01-20 20:51

User since
2003-08-04
5246 Artikel
ModeratorIn

nebenbei: die leeren klammern {} geben eine schleife an, die nur einmal durchlaufen wird; da kann man aber mit next/redo/last arbeiten, z.B. gibt

Code: (dl )

1
2
3

{
  redo;
}

eine endlosschleife...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

format_c

2005-01-21 12:08

User since
2003-08-04
1706 Artikel
HausmeisterIn

Solche Gebilde verwende ich gern zur Evaluierung von Konsoleneingaben:

Code: (dl )

use strict;
my @users;
open PASSWD,'<','/etc/passwd' or die $!;
while (<PASSWD>) {
  next if /^\s*$/;
  next if /^#/;
  push @users,(split /:/)[0];
}
close PASSWD;

INPUT:{
  print "Bitte Usernamen eingeben: ";
  chomp( my $input = <STDIN>);
  unless (grep $input eq $_,@users) {
    warn "Username $input nicht gefunden.\n";
    redo INPUT;
  }
}

Gruß Alex

Effizente Linuxshell

lichtkind

2005-02-23 14:44

User since
2004-03-22
5703 Artikel
ModeratorIn + EditorIn

das mit den doppleten klammern ging gut
aber es gibt noch ein grund sich auf p6 zu freuen:

Perl 6 Language
do { } while?
David Storrs wanted to know what the best way to say " do { }
while($foo); " was. Larry told him that " s/do/loop/ " would suffice.

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

Crian

2005-02-23 20:22

User since
2003-08-04
5873 Artikel
ModeratorIn

Gibt ein paar schöne Dinge in perl6 =)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite