Basit bir Perl sorusu...

[Bunneh]

Şimdi ilk defa perl öğrenmeye başladım ve soru çok basit bir sorunum var .pl diye kaydettiğim dosyaları çalıştırmak istediğimde DOS penceresi açılıp hemen tekrar kapanıyor oysa command prompt'u açıp dosyanın bulunduğu klasöre gidip xx.pl diye dosyayı çalıştırdığımda güzelce çalışıyor bunun nedeni ne olabilir? ActivePerl'in son sürümünü kullanıyorum.

[Mirage]

DOS penceresi açılıp hemen tekrar kapanıyor = güzelce çalışıyor, sen sonuçları göremeden kapanıyor. Normali de bu zaten.

Pencere kapanmasın istiyorsan dediğin şekilde çalıştırabilirsin ya da programın sonuna bir tuşa basana kadar beklemeyi sağlayacak bir satır ekleyebilirsin.

[Bunneh]

Ahah bende bir sorun var diyorum hey gidi. O satırın ne olduğunu söyleyebilir misin peki? Birde kullanıcının girdiği verileri nasıl alabilirim yani şöyle basit birşey yapmak istiyorum: Saat gireceğim programda bana 12 den erkense günaydın, geçse tünaydın diyecek ancak kullanıcıdan komutu nasıl alacağım konusunda bir fikrim internetteki örnekleri denedim ancak başarılı olamadım bir türlü.

[sharky]

	my $firstVariable = shift;

	my $secondVariable = shift;

	

ile :)

[Bunneh]

Aradan yaklaşık 6 ay kadar geçmiş fakat ben bu sürede hiç ilgilenmedim. Şimdi boş zamanım olduğuna göre tekrar uğraşmaya başlayayım dedim ve bu saatte öylesine küçük bir şey yazmaya kalktım fakat şu $kelvin'i yazdırmayı bir türlü başaramadım biliyorum çok basit bir soru fakat yardımcı olabilecek birileri var mı?

#!usr/bin/perl

print STDOUT "Sicakligi santigrat cinsinden giriniz: ";
$celsius = ;
$kelvin == $celsius + '253';
chop($celsius);
print "$celsius derece, Kelvin cinsinden $kelvin esittir.n";

[sharky]

chomp($celcius);
$kelvin = $celsius + 253;

[Bunneh]

Çok sağolasın sharky. Takıldığım bir yer olursa gene burada paylaşırım.

Ellinci defa editliyorum fakat şu kodla

#!usr/bin/perl

print STDOUT "Sicakligi santigrat cinsinden giriniz: ";
$celcius = ;
$kelvin = $celsius + 273;
chomp($celcius);
print "$celcius derece, Kelvin cinsinden $kelvin'e esittir.n";

Her derece için 273 değerini gösteriyor...

[sharky]

Onu soyle yazsan ?

#!usr/bin/perl

print STDOUT "Sicakligi santigrat cinsinden giriniz: ";
chomp ( $celcius = <>);
$kelvin = ($celsius + 273);
print "$celcius derece, Kelvin cinsinden $kelvin'e esittir.n";

[Bunneh]

Yok olmadı bu son kodu çalıştırınca gene 273 değerini veriyor.

[fizban]

$celcius ile $celsius ayni degil de ondan =)

hata mesajlarina dikkat etsen sorun olmaz.

[LuNiZ]

fizban muthissin abi.. yorumsuz ya.. ahahahaha bittim burda..

[Bunneh]

İlk başta sharky'nin dediğini kendi kodumda değiştirdiğimde düzeltmiştim fakat sonra bakmayı akıl etmedim. Ayrıca celcius ve celsius ayrı yazıldıktan sonra hata vermiyor program sadece $kelvin diye bir şey çıkmıyor ortaya.

[fizban]

hata veya uyarı mesajı nasıl olmaz da vermez ki ? neyle çalıştırıyorsun ?

oturdum denedim hatta.

Name "main::celsius" used only once: possible typo at ./hede.pl line 5.

@luniz, eyw =)

[Bunneh]

CMD üzerinden çalıştırıyorum ve hata vermiyor.

[fizban]

garipmiş. warning seviyesini arttırmayı deneyebilirsin o zaman, ileride başa çok dert açar. nereden yapılır fikrim yok ama.

[sharky]

lol koca variable da typo yapmisiz.

#!usr/bin/perl -w

ile calistir.

[Bunneh]

Çok teşekkürler ikinizede, -w yapıp çalıştırınca bende de hata veriyor şimdiden bunu da öğrenmiş oldum.