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

• #3324 barnam_ nagyúr barnam_ #3319

  Új Válasz 2008-04-07 19:30:28 #3324

  Ú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

  

  barnam_

  nagyúr

  válasz barnam_ #3319 üzenetére

  Azt már kiderítettem, hogy mire jó a defined függvény, de nem értem hogy kellene használni Valami ötlet?

• #3319 barnam_ nagyúr barnam_ #3316

  Új Válasz 2008-04-07 11:31:45 #3319

  Ú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

  

  barnam_

  nagyúr

  válasz barnam_ #3316 üzenetére

  Azóta sikerült megcsinálnom
  Viszont akadt egy kis problémám, vagyis egy figyelmeztetés, amit el kellene tüntetnem.
  Ha 0-t adok meg az 1. változónak, működik a program, de ezt kapom:

  Use of uninitialized value in concatenation (.) or string at ./feladat5.sh line 28, <STDIN> line 4.

  Annyit kiderítettem, hogy valami Define-t kellene használnom, de semmit se találtam arról, hogyan kellene használnom.

  #!/usr/bin/perl -w
  
  print "elso:\n";
  $szam1=<STDIN>;
  chomp $szam1;
  
  print "diff:\n";
  $diff=<STDIN>;
  chomp $diff;
  
  print "hanyadik elemeket:\n";
  $elem=<STDIN>;
  chomp $elem;
  
  print "osszesen mennyi elemet:\n";
  $osszes=<STDIN>;
  chomp $osszes;
  
  $hatar=$diff * $osszes * $elem;
  for ($i=$szam1; $i<$hatar; $i=$i + $diff)
  {
  @list=(@list, $i);
  }
  
  $size=@list;
  for ($i=0; $i<=$size; $i=$i + $elem)
  {
  print "$list[$i] ";
  }
  print "\n";

• #3316 barnam_ nagyúr shev7 #3314

  Új Válasz 2008-04-02 23:31:49 #3316

  Ú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

  

  barnam_

  nagyúr

  válasz shev7 #3314 üzenetére

  Most itt tartok:

  $n=-1;
  for ( $i=$szam1; $i <= $szam2; $i=$i+1 )
  {
  @list=$i;
  $size=@list;
  
  for ( $b=0; $b < $size; $b=$b+1)
  {
  print "$b. index: $list[$n]\n;";
  $n=$n-1;
  }
  
  }

  Külön működött (feltöltöttem kézzel egy listát), de a for ciklusba ágyazva nem jó. A hibaüzenet a $b.index-re utal, a "."-al van baja.

• #3313 barnam_ nagyúr amargo #3312

  Új Válasz 2008-04-02 22:22:56 #3313

  Ú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

  

  barnam_

  nagyúr

  válasz amargo #3312 üzenetére

  Reverse el iratnám ki fordított sorrendben, de nem azt teszi, ugyanúgy 10-15-ig írja.

  for ( $i=$szam1; $i <= $szam2; $i=$i+1 )
  {
  @list=$i;
  @list2=reverse @list;
  print "@list2\n";
  }

• #3311 barnam_ nagyúr

  Új Válasz 2008-04-02 21:53:24 #3311

  Ú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

  

  barnam_

  nagyúr

  Tudna valaki Perl-ben segíteni? Kaptam egy házit, de nem azt csinálja amit én akarok

  A standard inputrol beker ket szamot!
  A ket bekert szam kozti szamokbol egy listat kepez (pl: ha a ket
  szam 42 es 48, akkor a lista elemei: 42,43,44,45,46,47,48), es
  kiiratja a lista elemeinek erteket a kovetkezo formaban: i.index=x
  (a bekert szamok sorrendjetol fuggetlenul a szamsor csokkeno legyen)
  
  Pelda a mukodesre:
  inputok: 10, 15
  > ./feladat1.sh
  0. index=15
  1. index=14
  2. index=13
  3. index=12
  4. index=11
  5. index=10

  For ciklussal kitudom iratni a két szám közötti számokat, de a tömböt nem úgy tölti fel, ahogy kellene. Próbáltam úgy, hogy a cikluson kívül van az értékadás, ekkor csak az utolsó értéket írja ki.

  #!/usr/bin/perl -w
  
  $szam1=<STDIN>;
  chomp $szam1;
  $szam2=<STDIN>;
  chomp $szam2;
  
  print "$szam1\n";
  print "$szam2\n";
  
  for ( $i=$szam1; $i <= $szam2; $i=$i+1 )
  {
  @list=$i;
  print "@list\n";
  }

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