Perl programcısı olmaktan gurur duyanlar için özel !

Perl'ün yaratıcısı Larry Wall, alışageldiğimiz tarzında yaptığı sunumla, 7. geleneksel Perl Soğanının Durumu isimli toplantıda yine herkesi kırdı, geçirdi :)

'Biz, isteksizler,
cahiller tarafından öncülük edilen bir yolda,
imkansızı gerçekleştirmeye çalışıyoruz.
O kadar uzun süredir o kadar çok şeyi, (elimizdeki) o kadar az şeyle gerçekleştirdik ki
Artık (elimizdeki) hiçbir şeyle, herhangibir şeyi yapabilecek hale yetkinliğe eriştik.'

Görüşler

FZ
yaklaşık 22 yıl önce

Geçen gün ofiste Larry Wall'un bu konuşmasının metnini okumaya başladığımda, teknik bir konuşma ne kadar eğlenceli ve komik ve aydınlatıcı olabilir ki diye düşünüyordum. Önce gözümden yaş gelene dek güldüm, sonra da üstadın vizyonuna ve teknik konuları eğlenceli şekilde açıklama yeteneğine, metaforları, felsefeyi, tarihi, vs. kullanışına hayran kaldım.

FZ
yaklaşık 22 yıl önce

Mastermind oyununu bilen bilir, bilmeyenler için açıklama:

Bilgisayar 4 basamaklı gelişigüzel bir tamsayı seçecek, her basamak 1-6 arasında olacak. Siz de her seferinde 4 basamaklı bir sayı gireceksiniz rakamları 1-6 arasında. Girdiğiniz rakamlardan birinin kendisi mevcut ama yeri yanlış ise +, kendisi mevcut ve yerini de doğru tahmin etmişseniz * değeri döndürülecek ve bu ipuçlarına bakarak tahmininizi geliştireceksiniz. Doğru tahmini yaptığınızda ya da ! girdiğinizde oyun bitecek.

Örn: Bilgisayarın seçtiği sayı: 5536 olsun, siz 1563 girerseniz bilgisayar size ++* şeklinde ipucu verecek yani iki rakamın yeri yanlış, birinin doğru, bir tanesi ise bilgisayarın tuttuğu sayı içinde mevcut değil şeklinde.

Bunu favori programlama dilinizde nasıl yapacağınızı düşünedurun, ben size bunu yapan Perl kodunu aktarayım:

#!/usr/bin/perl -l
$c.=1+int rand 6for 6..9;while(){/^d{4}$|!/||next;$_.=$c;4while
s+(.)(.{4})1+?$2*+s;4while s-(d)(.* .*)1-+$2-;print/[*+]/g;/*{4}|!/&&die

Tepedeki ilk satırı saymazsak sadece 2 satır ;-)

Detaylar için adres: http://perlmonks.org/index.pl?node_id=276359

FZ: İtina ile programlama dilleri savaşına çanak tutan provakatör editör :-P

St
yaklaşık 22 yıl önce

Iki satir olabilir, ama kesinlikle dogal degil :)
Bunu javayla yazmak bilem buyuk haz verir, velakin yukardaki perl kodu insana oykh dedittiriyo
(St, javadan da perlden de hazetmeyen, bu gidi$le hic bi programlama diliyle duygusal bag kuramiyacakmi$ izlenimi veren FMci :)

FZ
yaklaşık 22 yıl önce

Yanlış anlama olmasın, söz konusu Perl kodu `obfuscated code´ kategorisinden seçilmiştir. Yani özel olarak kısaltılmış, karmaşık hale getirilmiş bir koddur. Aynı şeyi tabii ki yine Perl dilinde, çok daha açık seçik, uzun, anlaşılır, kolay okunur şekilde yazmak mümkündür. Maalesef insanlar bu tip örneklere bakıp Perl´in zor bir dil olduğunu düşünmektedirler, bu, tam olarak doğru değildir. Dilin ne kadar esnek olduğuna dair bir örnek olarak gösterilmiştir, kesinlikle `doğal´ ve kolay anlaşılır program örneği olarak sunulmamıştır :) Sakın bunu evde tek başınıza denemeyin, mutlaka bir uzman gözetiminde çalıştırın :-P

Görüş belirtmek için giriş yapın...

İlgili Yazılar

Neden Mac ?

sundance
13 Ekim 2000, 2 dakika okuma süresi

Tamam kabul ediyorum, eğer evlerinin garajında Steve Wozniak ve Steve Jobs ilk Apple bilgisayarı yapmasalardı veya biraz geç kalsalardı belki de şu anda bilgisayar kullanmak için ehliyet almamız gerekecekti*. Fakat tescilli bir "geek" olarak ısrarla söylüyorum ki bilgisayardan anlamayanlar Apple kullansın, ben PC'den memnunum :p

Visual Perl, Visual Python

gencbeyin
29 Ekim 2001, 1 dakika okuma süresi

Microsoft Visual Studio .NET için editör, grafik arındırıcı, dil deyimleri (regular expression) kontrolü ve XML Web servisleri programlama gibi özellikleri bulunan Visual Perl ve Visual Python 22.Ekim'de Los Angeles'da Active State'in kurucusu Dick Hardt tarafından Microsoft Professional Developers Conference'da ilan edildi. Yazıldıktan sonra her türlü platformda kullanılabilecek türden kod oluşturan geliştirme ortamı ilk üçüncü parti programlama dili paketi olarak nitelendirildi.

Perl Öğreniyoruz - 4

cayfer
12 Mayıs 2002, 7 dakika okuma süresi

Daha önceki bölümler:
1. bölüm
2. bölüm
3. bölüm
Bu hafta konumuzda çağrışımlı listeler var, Haftaya "regexp"ler! Bu arada merak ettiğim birşey var: Acaba bu Perl tefrikasından yararlanan var mı?

Kevin Poulsen iş başında!

sundance
17 Ekim 2006, 1 dakika okuma süresi

Güvenlik dünyasının meşhur kötü çocuklarından, eski Security Focus yazarı Kevin Paulsen, yazdığı bir Perl scriptle U.S. National Sex Offender Registry kayıtları ile MySpace kullanıcılarını karşılaştırıp, bir cinsel suç zanlısının tespitine yardımcı olmuş.

Kendisini daha çok Los Angeles'daki KISS FM'in 102. arayan kişiye verdiği Porsche 944 S2'i kazanabilmek için, bütün telefon konuşmalarını durduran kişi olarak tanıdığımız Dark Dante kod adlı Poulsen yıllardır bilgi güvenliği alanında gazetecilik yapmakta, hatta zaman zaman bu olaydaki gibi otoritelere yardımcı olmakta.

Perl // Küçük Regexp El Kitabı

Ansugo
10 Aralık 2003, 18 dakika okuma süresi

Çok fazla kod yazıyor, ama bazı yerlerde tıkandığınızı hissediyorsunuz; == ile karşılaştırma yapabiliyor, ama string içinde arama yapmakta istiyorsunuz; ve en güzeli herhangi bir stringin altindan cikip cikmak istiyorsunuz, o zaman buyurun düzenli ifade cumhuriyetine.