পার্লে আমার বেশিরভাগ printবক্তব্য ফর্ম নেয় take
print "hello." . "\n";
আশেপাশে সমস্ত all "n" lying n "পড়ে থাকা এড়ানোর কোনও ভাল উপায় আছে?
আমি জানি যে আমি একটি নতুন ক্রিয়াকলাপ করতে পারি myprintযেগুলি স্বয়ংক্রিয়ভাবে সংযোজন করে \ n, তবে আমি বিদ্যমানটিকে ওভাররাইড করতে পারলে ভাল লাগবে print।
perldoc perlvarবেশিরভাগ ক্যাভেটের বর্ণনা দেয়, এখানে কেন তাদের বেলাবর করা উচিত?
উত্তর:
পার্ল 6 এর sayক্রিয়াটি স্বয়ংক্রিয়ভাবে সংযোজন করে \n।
আপনি sayযুক্ত করলে পার্ল 5.10 বা 5.12 এও ব্যবহার করতে পারেন
use feature qw(say);
আপনার প্রোগ্রামের শুরুতে। অথবা আপনি এই এবং অন্যান্য বৈশিষ্ট্যগুলি পেতে আধুনিক :: পার্ল ব্যবহার করতে পারেন ।
আরও তথ্যের জন্য পার্লডোক বৈশিষ্ট্যটি দেখুন ।
use 5.012;বা use 5.010;আপনি যদি নতুন এইগুলি চালাচ্ছেন তবে তা পাওয়া perl।
আপনি -lশে-ব্যাং শিরোনামে বিকল্পটি ব্যবহার করতে পারেন :
#!/usr/bin/perl -l
$text = "hello";
print $text;
print $text;
আউটপুট:
hello
hello
পার্ল ৫.১০+ যদি কোনও বিকল্প না হয় তবে এখানে একটি দ্রুত এবং নোংরা অনুমান। এটি হুবহু এক নয়, যেহেতু যখন প্রথম আর্গটি হ্যান্ডেল হয় তখন বলার কিছু ম্যাজিক থাকে তবে স্টক প্রিন্টের জন্য:
sub say {print @_, "\n"}
say 'hello';
আপনি আপনার মুদ্রণ বিবৃতিটি যেভাবে লিখছেন তা অযথা ভার্চুজের। নতুন লাইনের নিজস্ব স্ট্রিংয়ে আলাদা করার দরকার নেই। এটি যথেষ্ট।
print "hello.\n";
এই উপলব্ধিটি আপনার কোডিংটি সাধারণভাবে সহজ করে তুলবে।
ব্যবহারের ক্ষেত্রে use feature "say"বা use 5.10.0বা use Modern::Perlসালে নির্মিত পেতে sayবৈশিষ্ট্য, আমি কুটনি যাচ্ছি perl5i ডিফল্টরূপে যুক্তিসম্মত অনুপস্থিত পার্ল 5 বৈশিষ্ট্য অনেক যা পালাক্রমে।
সম্ভবত আপনি নিজের আউটপুট রেকর্ড বিভাজকটিকে লাইনফিডে পরিবর্তন করতে চান:
local $\ = "\n";
$ perl -e 'print q{hello};print q{goodbye}' | od -c
0000000 h e l l o g o o d b y e
0000014
$ perl -e '$\ = qq{\n}; print q{hello};print q{goodbye}' | od -c
0000000 h e l l o \n g o o d b y e \n
0000016
আপডেট: আমার উত্তর পরামর্শের চেয়ে দক্ষতার সাথে কথা বলে। আমি লাইনের শেষে "es n" যুক্তটিকে "বেদনা" কাজ হিসাবে বিবেচনা করি না, তবে কেউ যদি সত্যিই সেগুলি এড়াতে চায় তবে এটি একটি উপায়। এই কৌশলটি ব্যবহার করে যদি আমাকে কিছুটা কোড বজায় রাখতে হত তবে আমি সম্ভবত এটি সম্পূর্ণরূপে রিফ্যাক্টর করতাম।
"helo\r\n"যা এখন যে বার্তাটি প্রেরণ করে তা প্রেরণ করবে "helo\r\n\n"।
local $\ = "\n";
-lকমান্ড লাইন ওয়ান- লাইনারদের জন্য দুর্দান্ত (দেখুন perldoc.perl.org/perlrun.html# কম্যান্ড- সুইচস )। আমি এটি কোনও বৃহত্তর প্রোগ্রামে সুপারিশ করব না।
Https://perldoc.perl.org/perlvar.html এ আমি যা পেয়েছি তা এখানে :
\ The প্রিন্ট অপারেটরের জন্য আউটপুট রেকর্ড বিভাজক। যদি সংজ্ঞায়িত করা হয় তবে এই মানটি মুদ্রণের শেষ যুক্তির পরে মুদ্রিত হবে। ডিফল্ট অপরিশোধিত।
আপনি কোনও স্ট্যান্ডিক পদ্ধতি হিসাবে কোনও হ্যান্ডেলটিতে আউটপুট_রেকার্ড_সেস্পেটর () কল করতে পারবেন না। আইও দেখুন: হ্যান্ডেল করুন।
স্মৃতিচারণ: আপনি মুদ্রণের শেষে "\ n" যুক্ত করার পরিবর্তে set set সেট করেছেন। এছাড়াও, এটি ঠিক $ / এর মতো, তবে আপনি পার্লের থেকে "ফিরে" পেয়েছেন।
উদাহরণ:
$\ = "\n";
print "a newline will be appended to the end of this line automatically";
যদি আপনি প্রাক-5.10 এর সাথে আটকে থাকেন তবে উপরে প্রদত্ত সমাধানগুলি sayফাংশনটির সম্পূর্ণরূপে প্রতিলিপি দেবে না । উদাহরণ স্বরূপ
sub say { print @_, "\n"; }
যেমন অনুরোধের সাথে কাজ করবে না
say for @arr;
বা
for (@arr) {
say;
}
... কারণ উপরের ফাংশনটি অন্তর্নিহিত গ্লোবাল $_লাইক printএবং আসল ফাংশনটিতে কাজ করে না say।
আরও ঘনিষ্ঠভাবে পার্ল প্রতিলিপি করতে 5.10+ sayআপনি এই ফাংশনটি চান
sub say {
if (@_) { print @_, "\n"; }
else { print $_, "\n"; }
}
যা এখন এটির মতো কাজ করে
my @arr = qw( alpha beta gamma );
say @arr;
# OUTPUT
# alphabetagamma
#
say for @arr;
# OUTPUT
# alpha
# beta
# gamma
#
sayPerl6 মধ্যে builtin একটু ভিন্নভাবে আচরণ করে। এটিকে চালিয়ে যাওয়া say @arrবা @arr.sayকেবল অ্যারে আইটেমগুলিকে একত্রিত করবে না, বরং তালিকার বিভাজকের সাথে পৃথক করে প্রিন্ট করবে। এটি perl5 এ প্রতিলিপি করতে আপনি এটি করবেন
sub say {
if (@_) { print join($", @_) . "\n"; }
else { print $_ . "\n"; }
}
$"গ্লোবাল তালিকার বিভাজক পরিবর্তনশীল, বা আপনি যদি ব্যবহার করছেন English.pmতবে তা হয়$LIST_SEPARATOR
এটি এখন আরও বেশি পার্ল 6 এর মতো কাজ করবে
say @arr;
# OUTPUT
# alpha beta gamma
#