perlperf - ক্লাউডে অনলাইন

কার্যক্রম:

NAME এর

perlperf - পার্ল পারফরম্যান্স এবং অপ্টিমাইজেশান কৌশল

বর্ণনাঃ

এটি পারফরম্যান্স এবং অপ্টিমাইজেশান কৌশলগুলির ব্যবহারের একটি ভূমিকা যা হতে পারে
পার্ল প্রোগ্রামের বিশেষ রেফারেন্সে ব্যবহৃত হয়। যদিও অনেক পার্ল ডেভেলপার এসেছে
অন্যান্য ভাষা থেকে, এবং তাদের পূর্বের জ্ঞান যেখানে উপযুক্ত সেখানে ব্যবহার করতে পারে, অনেক আছে
অন্যান্য ব্যক্তি যারা কয়েকটি পার্ল নির্দিষ্ট পয়েন্টার থেকে উপকৃত হতে পারে। আপনি যদি চান
ঘনীভূত সংস্করণ, সম্ভবত সেরা পরামর্শটি বিখ্যাত জাপানি সামুরাই থেকে আসে,
মিয়ামোতো মুসাশি, যিনি বলেছেন:

"অহেতুক কার্যকলাপে নিয়োজিত হবেন না"

1645 মধ্যে.

এক নজরে

সম্ভবত প্রোগ্রামারদের সবচেয়ে সাধারণ ভুল হল তাদের কোড অপ্টিমাইজ করার চেষ্টা করা
একটি প্রোগ্রাম আসলে কিছু দরকারী করার আগে - এটি একটি খারাপ ধারণা। সেখানে কোন অবস্থান না
একটি অত্যন্ত দ্রুত প্রোগ্রাম আছে যা কাজ করে না। প্রথম কাজ একটি প্রোগ্রাম পেতে হয়
সঠিকভাবে কিছু কর দরকারী, (পরীক্ষা স্যুট সম্পূর্ণরূপে নিশ্চিত করার কথা উল্লেখ না করে
কার্যকরী), এবং শুধুমাত্র তারপর এটি অপ্টিমাইজ করার বিবেচনা করুন। বিদ্যমান অপ্টিমাইজ করার সিদ্ধান্ত নিয়েছে
কাজের কোড, বিবেচনা করার জন্য বেশ কয়েকটি সহজ কিন্তু প্রয়োজনীয় পদক্ষেপ রয়েছে যা অন্তর্নিহিত
যেকোন অপ্টিমাইজেশান প্রক্রিয়ায়।

ONE ধাপ পার্শ্বপথ
প্রথমত, আপনাকে বিদ্যমান কোডের জন্য একটি বেসলাইন সময় স্থাপন করতে হবে, যা সময়ের প্রয়োজন
নির্ভরযোগ্য এবং পুনরাবৃত্তিযোগ্য হতে। আপনি সম্ভবত "বেঞ্চমার্ক" বা ব্যবহার করতে চাইবেন
"Devel::NYTprof" মডিউল, বা অনুরূপ কিছু, এই পদক্ষেপের জন্য, বা সম্ভবত ইউনিক্স সিস্টেম
"সময়" ইউটিলিটি, যেটি উপযুক্ত। একটি দীর্ঘ তালিকার জন্য এই নথির ভিত্তি দেখুন
বেঞ্চমার্কিং এবং প্রোফাইলিং মডিউল, এবং আরও পড়ার সুপারিশ করা হয়েছে।

ONE ধাপ FORWARD এর
পরবর্তী, জন্য প্রোগ্রাম পরীক্ষা করে গরম দাগ, (যেসব জায়গায় কোড চালানো হচ্ছে বলে মনে হয়
ধীরে ধীরে), এটি দ্রুত চালানোর অভিপ্রায়ে কোড পরিবর্তন করুন। সংস্করণ ব্যবহার করে
নিয়ন্ত্রণ সফ্টওয়্যার, যেমন "সাবভার্সন" নিশ্চিত করবে কোন পরিবর্তন অপরিবর্তনীয় নয়। ইহা বেশী
এখানে বেহালা করা এবং সেখানে বেহালা করা সহজ - যে কোনও সময়ে খুব বেশি পরিবর্তন করবেন না বা আপনি হতে পারেন
কোড কোন টুকরা আবিষ্কার না সত্যিই ধীর বিট ছিল.

অন্য ধাপ পার্শ্বপথ
এটি বলা যথেষ্ট নয়: "এটি এটিকে দ্রুত চালাবে", আপনাকে এটি পরীক্ষা করতে হবে। পুনরায় চালান
বেঞ্চমার্কিং বা প্রোফাইলিং মডিউলের নিয়ন্ত্রণে থাকা কোড, উপরের প্রথম ধাপ থেকে,
এবং পরীক্ষা করুন যে নতুন কোডটি কার্যকর করেছে একই কাজের in কম সময়. আপনার কাজ সংরক্ষণ করুন এবং
পুনরাবৃত্তি...

সাধারণ নির্দেশিকা

পারফরম্যান্স বিবেচনা করার সময় গুরুত্বপূর্ণ জিনিসটি মনে রাখতে হবে যে a এর মতো কোনও জিনিস নেই
"গোল্ডেন বুলেট", যে কারণে কোন নিয়ম নেই, শুধুমাত্র নির্দেশিকা।

এটা স্পষ্ট যে ইনলাইন কোড সাবরুটিন বা পদ্ধতি কলের চেয়ে দ্রুততর হতে চলেছে,
কারণ কম ওভারহেড আছে, কিন্তু এই পদ্ধতির কম হওয়ার অসুবিধা আছে
রক্ষণাবেক্ষণযোগ্য এবং বৃহত্তর মেমরি ব্যবহারের খরচে আসে - এর মতো কোনও জিনিস নেই
বিনামূল্যে দুপুরের খাবার. আপনি যদি একটি তালিকায় একটি উপাদানের জন্য অনুসন্ধান করেন তবে এটি আরও কার্যকর হতে পারে
একটি হ্যাশ স্ট্রাকচারে ডেটা সঞ্চয় করুন এবং তারপরে কেবল কী তা দেখতে দেখুন
ব্যবহার করে সমগ্র অ্যারে লুপ করার পরিবর্তে সংজ্ঞায়িত করা হয়েছে grep() এই ক্ষেত্রে. substr()
হতে পারে (অনেক) এর চেয়ে দ্রুত grep() কিন্তু নমনীয় নয়, তাই আপনার কাছে আরেকটি ট্রেড-অফ আছে
অ্যাক্সেস আপনার কোডে একটি লাইন থাকতে পারে যা কার্যকর করতে এক সেকেন্ডের 0.01 সময় নেয় যদি আপনি
এটিকে 1,000 বার কল করুন, সম্ভবত একটি প্রোগ্রামে এমনকি মাঝারি আকারের ফাইল পার্সিং করার জন্য
উদাহরণস্বরূপ, আপনি ইতিমধ্যে একটি 10 ​​সেকেন্ড বিলম্ব করেছেন, শুধুমাত্র একটি একক কোড অবস্থানে, এবং যদি আপনি
সেই লাইনটিকে 100,000 বার কল করুন, আপনার পুরো প্রোগ্রামটি একটি অসহনীয় ক্রল হয়ে যাবে।

আপনার সাজানোর অংশ হিসাবে একটি সাবরুটিন ব্যবহার করা আপনি যা চান তা পাওয়ার একটি শক্তিশালী উপায়,
কিন্তু সাধারণত অন্তর্নির্মিত তুলনায় ধীর হবে বর্ণানুক্রমিক "cmp" এবং সাংখ্যিক "<=>" সাজান
অপারেটর আপনার ডেটার উপর একাধিক পাস করা সম্ভব, সূচকগুলি তৈরি করা
আসন্ন বাছাইকে আরও দক্ষ করে তুলুন এবং "ওএম" (অর্কিশ
কৌশল) আগাম বাছাই কী ক্যাশে. ক্যাশে সন্ধান, একটি ভাল ধারণা, করতে পারেন
ডেটার উপর ডাবল পাস প্রয়োগ করে নিজেই মন্থরতার একটি উৎস হতে পারে - একবার সেটআপ করার জন্য
ক্যাশে, এবং একবার ডেটা সাজানোর জন্য। প্রয়োজনীয় সাজানোর কী বের করতে "pack()" ব্যবহার করে
একটি সামঞ্জস্যপূর্ণ স্ট্রিং তুলনা করার জন্য একটি একক স্ট্রিং তৈরি করার একটি কার্যকর উপায় হতে পারে,
একাধিক সাজানোর কী ব্যবহার করার পরিবর্তে, যা স্ট্যান্ডার্ড, লিখিত ব্যবহার করা সম্ভব করে তোলে
"c" এবং দ্রুত, আউটপুটে perl "sort()" ফাংশন, এবং "GRT" এর ভিত্তি
(Gutman Rossler Transform)। কিছু স্ট্রিং কম্বিনেশন "GRT" কমিয়ে দিতে পারে
তার নিজের ভালোর জন্য খুব সাধারণ জটিল হচ্ছে.

ডাটাবেস ব্যাকএন্ড ব্যবহার করে অ্যাপ্লিকেশনগুলির জন্য, আদর্শ "DBIx" নামস্থান সাহায্য করার চেষ্টা করে
জিনিষ nippy রাখা সঙ্গে, না অন্তত কারণ এটা করার চেষ্টা করে না পর্যন্ত ডাটাবেস জিজ্ঞাসা
সাম্প্রতিক সম্ভাব্য মুহূর্ত, কিন্তু সর্বদা আপনার পছন্দের লাইব্রেরির সাথে আসা নথিগুলি পড়ুন।
অনেক সমস্যার মধ্যে ডেভেলপারদের ডাটাবেস নিয়ে কাজ করার বিষয়ে সচেতন থাকা উচিত
সর্বদা "SQL" স্থানধারক ব্যবহার করতে এবং যখন এটি হতে পারে তখন প্রাক-আনয়ন ডেটা সেট বিবেচনা করতে
সুবিধাজনক প্রমাণ। পার্সিং করার জন্য একাধিক প্রক্রিয়া বরাদ্দ করে একটি বড় ফাইল বিভক্ত করা
একটি একক ফাইল, "POE", "থ্রেড" বা "ফর্ক" ব্যবহার করেও অপ্টিমাইজ করার একটি কার্যকর উপায় হতে পারে
আপনার উপলব্ধ "CPU" সংস্থানগুলির ব্যবহার, যদিও এই কৌশলটি পরিপূর্ণ
সমসাময়িক সমস্যা এবং বিস্তারিত উচ্চ মনোযোগ দাবি.

প্রতিটি ক্ষেত্রে একটি নির্দিষ্ট অ্যাপ্লিকেশন এবং এক বা একাধিক ব্যতিক্রম আছে, এবং নেই
কিছু পরীক্ষা চালানোর জন্য প্রতিস্থাপন এবং খুঁজে বের করার জন্য কোন পদ্ধতি আপনার জন্য সবচেয়ে ভাল কাজ করে
বিশেষ পরিবেশ, এই কারণেই সর্বোত্তম কোড লেখা একটি সঠিক বিজ্ঞান নয় এবং কেন
আমরা পার্ল ব্যবহার করতে ভালোবাসি - TMTOWTDI।

বেঞ্চমার্কস

পার্লের বেঞ্চমার্কিং সরঞ্জামগুলির ব্যবহার প্রদর্শনের জন্য এখানে কয়েকটি উদাহরণ রয়েছে।

বরাদ্দ করা হচ্ছে এবং রেফারেন্সিং পরিবর্তনশীল
আমি নিশ্চিত যে আমাদের মধ্যে বেশিরভাগই এমন কোড দেখেছেন যা দেখতে (বা এর চেয়ে খারাপ), এটি:

যদি ( $obj->{_ref}->{_myscore} >= $obj->{_ref}->{_yourscore} ) {
...

এই ধরণের কোড পড়ার জন্য সত্যিকারের চোখদুটো হতে পারে, সেইসাথে টাইপোর জন্য খুবই সংবেদনশীল হতে পারে,
এবং ভেরিয়েবলটিকে স্পষ্টভাবে ডিরেফার করা অনেক বেশি পরিষ্কার। আমরা পার্শ্ব-পদক্ষেপ করছি
ভেরিয়েবল এনক্যাপসুলেট করার জন্য অবজেক্ট-ওরিয়েন্টেড প্রোগ্রামিং কৌশলগুলির সাথে কাজ করার সমস্যা
পদ্ধতির মাধ্যমে অ্যাক্সেস, শুধুমাত্র একটি বস্তুর মাধ্যমে অ্যাক্সেসযোগ্য। এখানে আমরা শুধু আলোচনা করছি
পছন্দের প্রযুক্তিগত বাস্তবায়ন, এবং এটি কর্মক্ষমতার উপর প্রভাব ফেলে কিনা। আমরা পারি
তুলনামূলক কোড বসিয়ে এই ডিরেফারেন্সিং অপারেশনের কোনো ওভারহেড আছে কিনা দেখুন
একটি ফাইল এবং একটি "বেঞ্চমার্ক" পরীক্ষা চলছে।

# সম্মান

#!/usr/bin/perl

কঠোর ব্যবহার করুন;
সতর্কতা ব্যবহার করুন;

বেঞ্চমার্ক ব্যবহার করুন;

আমার $ref = {
'রেফ' => {
_myscore => '100 + 1',
_yourscore => '102 - 1',
},
};

এইসব সময়(1000000, {
'direct' => উপ {
আমার $x = $ref->{ref}->{_myscore}। $ref->{ref}->{_yourscore} ;
},
'dereference' => সাব {
আমার $ref = $ref->{ref};
আমার $myscore = $ref->{_myscore};
আমার $yourscore = $ref->{_yourscore};
আমার $x = $myscore। $yourscore;
},
});

যেকোন টাইমিং পরিমাপকে পর্যাপ্ত সংখ্যক বার চালানো অপরিহার্য তাই সংখ্যা
একটি সাংখ্যিক গড়ে স্থির, অন্যথায় প্রতিটি রান স্বাভাবিকভাবেই কারণে ওঠানামা করবে
পরিবেশের ভিন্নতা, "CPU" সংস্থানগুলির জন্য বিতর্কের প্রভাব কমাতে এবং
উদাহরণস্বরূপ নেটওয়ার্ক ব্যান্ডউইথ। এক মিলিয়ন পুনরাবৃত্তির জন্য উপরের কোডটি চলমান, আমরা পারি
"বেঞ্চমার্ক" মডিউল দ্বারা রিপোর্ট আউটপুট কটাক্ষপাত, কোন পদ্ধতির দেখতে
সর্বাধিক কার্যকর.

$> পার্ল ডিরেফারেন্স

বেঞ্চমার্ক: টাইমিং 1000000 পুনরাবৃত্তির ডিরেফারেন্স, সরাসরি...
ডিরেফারেন্স: 2 ওয়ালক্লক সেকেন্ড (1.59 usr + 0.00 sys = 1.59 CPU) @ 628930.82/s (n=1000000)
সরাসরি: 1 ওয়ালক্লক সেকেন্ড (1.20 usr + 0.00 sys = 1.20 CPU) @ 833333.33/s (n=1000000)

পার্থক্যটি দেখতে স্পষ্ট এবং ডিরেফারেন্সিং পদ্ধতিটি ধীর। এটি পরিচালিত যখন
আমাদের পরীক্ষার সময় সেকেন্ডে গড়ে 628,930 বার চালানোর জন্য, সরাসরি পদ্ধতি
দুর্ভাগ্যবশত, অতিরিক্ত 204,403 বার চালানোর জন্য পরিচালিত হয়েছে। দুর্ভাগ্যবশত, কারণ সেখানে
একাধিক স্তর সরাসরি পরিবর্তনশীল অ্যাক্সেস ব্যবহার করে লেখা কোডের অনেক উদাহরণ, এবং
এটা সাধারণত ভয়ঙ্কর। এটা অবশ্য সামান্য দ্রুততর। কিনা প্রশ্ন থেকে যায়
মিনিট লাভ আসলে চোখের স্ট্রেনের মূল্য, বা রক্ষণাবেক্ষণযোগ্যতার ক্ষতি।

সার্চ এবং প্রতিস্থাপন করা or tr
যদি আমাদের একটি স্ট্রিং থাকে যা পরিবর্তন করা দরকার, যখন একটি রেজেক্স প্রায় সবসময়ই অনেক বেশি হবে
আরো নমনীয়, "tr", একটি প্রায়ই কম ব্যবহার করা টুল, এখনও একটি দরকারী হতে পারে। একটি দৃশ্যকল্প হতে পারে
অন্য অক্ষর দিয়ে সমস্ত স্বর প্রতিস্থাপন করুন। regex সমাধান এই মত দেখতে হতে পারে:

$str =~ s/[aeiou]/x/g

"tr" বিকল্পটি এইরকম দেখতে পারে:

$str =~ tr/aeiou//

আমরা এটিকে একটি পরীক্ষা ফাইলে রাখতে পারি যা আমরা কোন পদ্ধতিটি দ্রুততম তা পরীক্ষা করতে চালাতে পারি,
একটি বিশ্বব্যাপী $STR ভেরিয়েবল ব্যবহার করে "my $str" ভেরিয়েবলকে বরাদ্দ করা যাতে পার্ল এড়ানো যায়
এটি শুধুমাত্র একবার বরাদ্দ করা হয়েছে লক্ষ্য করে দূরে কোন কাজ অপ্টিমাইজ করার চেষ্টা করে.

# রেজেক্স-ট্রান্সলিটারেট

#!/usr/bin/perl

কঠোর ব্যবহার করুন;
সতর্কতা ব্যবহার করুন;

বেঞ্চমার্ক ব্যবহার করুন;

আমার $STR = "$$-এই এবং ওটা";

এই সময় (1000000, {
'sr' => সাব { আমার $str = $STR; $str =~ s/[aeiou]/x/g; ফেরত $str; },
'tr' => সাব { আমার $str = $STR; $str =~ tr/aeiou//; ফেরত $str; },
});

কোড চালানো আমাদের ফলাফল দেয়:

$> পার্ল রেজেক্স-ট্রান্সলিটারেট

বেঞ্চমার্ক: সময় 1000000 পুনরাবৃত্তির sr, tr...
sr: 2 ওয়ালক্লক সেকেন্ড (1.19 usr + 0.00 sys = 1.19 CPU) @ 840336.13/s (n=1000000)
tr: 0 ওয়ালক্লক সেকেন্ড (0.49 usr + 0.00 sys = 0.49 CPU) @ 2040816.33/s (n=1000000)

"tr" সংস্করণটি একটি স্পষ্ট বিজয়ী। একটি সমাধান নমনীয়, অন্যটি দ্রুত - এবং
এটি সঠিকভাবে প্রোগ্রামারের পছন্দ যা ব্যবহার করতে হবে।

আরও দরকারী কৌশলগুলির জন্য "বেঞ্চমার্ক" ডক্স দেখুন।

প্রোফাইলিং সরঞ্জামগুলি

কোডের একটি সামান্য বড় অংশ এমন কিছু প্রদান করবে যার উপর একজন প্রোফাইলার তৈরি করতে পারে
আরো ব্যাপক রিপোর্টিং পরিসংখ্যান. এই উদাহরণটি সরলীকৃত "wordmatch" প্রোগ্রাম ব্যবহার করে
যা একটি প্রদত্ত ইনপুট ফাইল পার্স করে এবং বিষয়বস্তুর উপর একটি সংক্ষিপ্ত প্রতিবেদন তৈরি করে।

# শব্দের মিল

#!/usr/bin/perl

কঠোর ব্যবহার করুন;
সতর্কতা ব্যবহার করুন;

= head1 NAME

ফাইলওয়ার্ডস - ইনপুট ফাইলের শব্দ বিশ্লেষণ

= head1 সংক্ষিপ্তসার

filewords -f ইনপুট ফাইলের নাম [-d]

=head1 বর্ণনা

এই প্রোগ্রামটি C<-f> দিয়ে নির্দিষ্ট করা প্রদত্ত ফাইলের নাম পার্স করে এবং a প্রদর্শন করে
সেখানে পাওয়া শব্দের সহজ বিশ্লেষণ। সক্রিয় করতে C<-d> সুইচ ব্যবহার করুন
ডিবাগিং বার্তা।

= কাটা

ফাইলহ্যান্ডেল ব্যবহার করুন;
Getopt::লং ব্যবহার করুন;

আমার $debug = 0;
আমার $file = '';

আমার $ ফলাফল = GetOptions (
'debug' => \$ডিবাগ,
'file=s' => \$ফাইল,
);
die("অবৈধ args") যদি না $result;

যদি না ( -f $file ) {
die("ব্যবহার: $0 -f ফাইলের নাম [-d]");
}
আমার $FH = FileHandle->new("< $file") or die("ফাইল খুলতে অক্ষম($file): $!");

আমার $i_LINES = 0;
আমার $i_WORDS = 0;
আমার %গণনা = ();

আমার @লাইন = <$FH>;
আমার $লাইন (@লাইন) {
$i_LINES++;
$লাইন =~ s/\n//;
আমার @শব্দ = বিভক্ত (/ +/, $লাইন);
আমার $i_words = স্কেলার(@words);
$i_WORDS = $i_WORDS + $i_words;
ডিবাগ("লাইন: $i_LINES সরবরাহ করছে $i_words শব্দ: @words");
আমার $i_word = 0;
foreach my $word (@words) {
$i_word++;
$count{$i_LINES}{spec} += মিল($i_word, $word, '[^a-zA-Z0-9]');
$count{$i_LINES}{only} += ম্যাচ($i_word, $word, '^[^a-zA-Z0-9]+$');
$count{$i_LINES}{cons} += ম্যাচ($i_word, $word, '^[(?i:bcdfghjklmnpqrstvwxyz)]+$');
$count{$i_LINES}{vows} += ম্যাচ($i_word, $word, '^[(?i:aeiou)]+$');
$count{$i_LINES}{caps} += মিল($i_word, $word, '^[(AZ)]+$');
}
}

প্রিন্ট রিপোর্ট (% গণনা);

সাব মিল {
আমার $i_wd = শিফট;
আমার $শব্দ = শিফট;
আমার $regex = শিফট;
আমার $ আছে = 0;

যদি ( $word =~ /($regex)/ ) {
$has++ যদি $1;
}

debug("শব্দ: $i_wd ".($has ? 'মেলে' : 'মেলে না')।" অক্ষর: /$regex/");

ফেরত $has;
}

সাব রিপোর্ট {
আমার % রিপোর্ট = @_;
আমার %rep;

আমার $লাইন ( কী % রিপোর্ট ) {
আমার $key ( কী %{ $report{$line} } ) {
$rep{$key} += $report{$line}{$key};
}
}

আমার $report = qq|
$ফাইলের জন্য $0 রিপোর্ট:
ফাইলে লাইন: $i_LINES
ফাইলের শব্দ: $i_WORDS
বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: $i_spec
শুধুমাত্র বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: $i_only
শুধুমাত্র ব্যঞ্জনবর্ণ সহ শব্দ: $i_cons
শুধুমাত্র বড় অক্ষর সহ শব্দ: $i_caps
শুধুমাত্র স্বরবর্ণ সহ শব্দ: $i_vows
|;

$report ফেরত;
}

সাব ডিবাগ {
আমার $বার্তা = শিফট;

যদি ( $debug ) {
STDERR "DBG: $message\n" প্রিন্ট করুন;
}
}

প্রস্থান 0;

ডেভেল::ডিপি অধ্যাপক
এই শ্রদ্ধেয় মডিউলটি পার্ল কোড প্রোফাইলিংয়ের জন্য ডি-ফ্যাক্টো স্ট্যান্ডার্ড হয়েছে
এক দশক, কিন্তু অন্যান্য মডিউলগুলির একটি সংখ্যা দ্বারা প্রতিস্থাপিত হয়েছে যা আমাদের ফিরিয়ে এনেছে
21 শতকের। যদিও আপনাকে বেশ কয়েকটি থেকে আপনার সরঞ্জামটি মূল্যায়ন করার পরামর্শ দেওয়া হচ্ছে
এখানে এবং এই নথির ভিত্তির CPAN তালিকা থেকে উল্লেখ করা হয়েছে, (এবং বর্তমানে
ডেভেল::এনওয়াইটিপ্রোফ পছন্দের অস্ত্র বলে মনে হচ্ছে - নীচে দেখুন), আমরা দ্রুত দেখে নেব
Devel::DProf থেকে আউটপুট প্রথমে, পার্ল প্রোফাইলিং টুলের জন্য একটি বেসলাইন সেট করতে। চালান
কমান্ডে "-d" সুইচ ব্যবহার করে "Devel::DProf" এর নিয়ন্ত্রণে উপরের প্রোগ্রামটি-
লাইন।

$> perl -d:DP prof wordmatch -f perl5db.pl

<...একাধিক লাইন কাটা হয়েছে...>

perl5db.pl এর জন্য wordmatch রিপোর্ট:
ফাইলে লাইন: 9428
ফাইলের শব্দ: 50243
বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: 20480
শুধুমাত্র বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: 7790
শুধুমাত্র ব্যঞ্জনবর্ণ সহ শব্দ: 4801
শুধুমাত্র বড় অক্ষর সহ শব্দ: 1316
শুধুমাত্র স্বরবর্ণ সহ শব্দ: 1701

"ডেভেল::ডিপ্রোফ" একটি বিশেষ ফাইল তৈরি করে, যাকে বলা হয় tmon.out ডিফল্টরূপে, এবং এই ফাইলটি পড়া হয়
"dprofpp" প্রোগ্রাম দ্বারা, যা ইতিমধ্যেই "Devel::DProf" এর অংশ হিসাবে ইনস্টল করা আছে
বিতরণ আপনি যদি কোন বিকল্প ছাড়াই "dprofpp" কল করেন, তাহলে এটি পড়বে tmon.out ফাইল ইন
বর্তমান ডিরেক্টরি এবং আপনার রানের একটি মানব পাঠযোগ্য পরিসংখ্যান প্রতিবেদন তৈরি করুন
কার্যক্রম. মনে রাখবেন এটি একটু সময় নিতে পারে।

$> dprofpp

মোট অতিবাহিত সময় = 2.951677 সেকেন্ড
ব্যবহারকারী+সিস্টেম সময় = 2.871677 সেকেন্ড
এক্সক্লুসিভ টাইমস
%Time ExclSec CumulS #Calls sec/call Csec/c নাম
102. 2.945 3.003 251215 0.0000 0.0000 প্রধান::মিলগুলি
2.40 0.069 0.069 260643 0.0000 0.0000 main::debug
1.74 0.050 0.050 1 0.0500 0.0500 main::report
1.04 0.030 0.049 4 0.0075 0.0123 main::BEGIN
0.35 0.010 0.010 3 0.0033 0.0033 রপ্তানিকারক::as_heavy
0.35 0.010 0.010 7 0.0014 0.0014 IO::ফাইল::শুরু
0.00 - -0.000 1 - - Getopt::Long::FindOption
0.00 - -0.000 1 - - প্রতীক::BEGIN
0.00 - -0.000 1 - - Fcntl::BEGIN
0.00 - -0.000 1 - - Fcntl::বুটস্ট্র্যাপ
0.00 - -0.000 1 - - সতর্কতা::BEGIN
0.00 - -0.000 1 - - IO::বুটস্ট্র্যাপ
0.00 - -0.000 1 - - Getopt::Long::ConfigDefaults
0.00 - -0.000 1 - - Getopt::Long::configure
0.00 - -0.000 1 - - চিহ্ন::gensym

"dprofpp" "wordmatch" এর কার্যকলাপের উপর বেশ কিছু বিস্তারিত প্রতিবেদন তৈরি করবে
কার্যক্রম. ওয়ালক্লক, ব্যবহারকারী এবং সিস্টেম, সময়গুলি বিশ্লেষণের শীর্ষে এবং পরে
এই রিপোর্ট সংজ্ঞায়িত করা প্রধান কলাম. এর জন্য "dprofpp" ডক্স চেক করুন
এটি সমর্থন করে এমন অনেক বিকল্পের বিবরণ।

এছাড়াও "Apache::DProf" দেখুন যা "Devel::DProf" কে "mod_perl" এ হুক করে।

বিকাশ::প্রোফাইলার
আসুন একটি ভিন্ন প্রোফাইলার ব্যবহার করে একই প্রোগ্রামটি দেখে নেওয়া যাক: "ডেভেল::প্রোফাইলার", ক
"ডেভেল::ডিপ্রোফ"-এর জন্য ড্রপ-ইন পার্ল-অনলি প্রতিস্থাপন। ব্যবহার খুব সামান্য ভিন্ন
যে বিশেষ "-d:" পতাকা ব্যবহার করার পরিবর্তে, আপনি সরাসরি একটি হিসাবে "ডেভেল::প্রোফাইলার" টানুন
"-M" ব্যবহার করে মডিউল।

$> perl -MDevel::প্রোফাইলার wordmatch -f perl5db.pl

<...একাধিক লাইন কাটা হয়েছে...>

perl5db.pl এর জন্য wordmatch রিপোর্ট:
ফাইলে লাইন: 9428
ফাইলের শব্দ: 50243
বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: 20480
শুধুমাত্র বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: 7790
শুধুমাত্র ব্যঞ্জনবর্ণ সহ শব্দ: 4801
শুধুমাত্র বড় অক্ষর সহ শব্দ: 1316
শুধুমাত্র স্বরবর্ণ সহ শব্দ: 1701

"ডেভেল::প্রোফাইলার" একটি tmon.out ফাইল তৈরি করে যা "dprofpp" এর সাথে সামঞ্জস্যপূর্ণ
প্রোগ্রাম, এইভাবে একটি ডেডিকেটেড পরিসংখ্যান পাঠক প্রোগ্রাম নির্মাণ সংরক্ষণ. "dprofpp"
ব্যবহার তাই উপরের উদাহরণের সাথে অভিন্ন।

$> dprofpp

মোট অতিবাহিত সময় = 20.984 সেকেন্ড
ব্যবহারকারী+সিস্টেম সময় = 19.981 সেকেন্ড
এক্সক্লুসিভ টাইমস
%Time ExclSec CumulS #Calls sec/call Csec/c নাম
49.0 9.792 14.509 251215 0.0000 0.0001 প্রধান::মিলগুলি
24.4 4.887 4.887 260643 0.0000 0.0000 main::debug
0.25 0.049 0.049 1 0.0490 0.0490 main::report
0.00 0.000 0.000 1 0.0000 0.0000 Getopt::Long::GetOptions
0.00 0.000 0.000 2 0.0000 0.0000 Gettopt::Long::ParseOptionSpec
0.00 0.000 0.000 1 0.0000 0.0000 Getopt::Long::FindOption
0.00 0.000 0.000 1 0.0000 0.0000 IO::ফাইল::নতুন
0.00 0.000 0.000 1 0.0000 0.0000 IO::হ্যান্ডেল::নতুন
0.00 0.000 0.000 1 0.0000 0.0000 চিহ্ন::gensym
0.00 0.000 0.000 1 0.0000 0.0000 IO::ফাইল::খোলা

মজার বিষয় হল আমরা কিছুটা ভিন্ন ফলাফল পাই, যা বেশিরভাগই অ্যালগরিদমের কারণে
যা রিপোর্ট তৈরি করে তা ভিন্ন, যদিও আউটপুট ফাইল ফরম্যাট ছিল অভিযোগ
অভিন্ন অতিবাহিত, ব্যবহারকারী এবং সিস্টেমের সময়গুলি স্পষ্টভাবে দেখায় যে এটি কতটা সময় নিয়েছে৷
"ডেভেল::প্রোফাইলার" তার নিজস্ব রান চালানোর জন্য, কিন্তু কলাম তালিকাগুলি আরও সঠিক মনে করে
আমরা আগে "ডেভেল::ডিপ্রোফ" থেকে যেগুলি পেয়েছি তার চেয়ে একরকম। 102% অঙ্ক আছে
অদৃশ্য হয়ে গেছে, উদাহরণস্বরূপ। এই যেখানে আমরা আমাদের নিষ্পত্তি সরঞ্জাম ব্যবহার করতে হবে, এবং
তাদের ব্যবহার করার আগে তাদের সুবিধা এবং অসুবিধা চিনুন। মজার ব্যাপার হল, কলের সংখ্যা
প্রতিটি সাবরুটিন দুটি রিপোর্টে অভিন্ন, এটি শতাংশ যা ভিন্ন। হিসাবে
"ডেভেল::প্রোভিলার" এর লেখক লিখেছেন:

...চলমান HTML::টেমপ্লেটের টেস্ট স্যুট Devel::DProf এর অধীনে আউটপুট দেখায়()
কোন সময় নিচ্ছে না কিন্তু Devel::প্রোফাইলার দেখায় প্রায় 10% সময় আউটপুটে ()।
আমি জানি না কোনটা বিশ্বাস করব কিন্তু আমার অন্ত্র আমাকে বলে যে কিছু একটা ভুল হয়েছে
ডেভেল::ডিপি অধ্যাপক। এইচটিএমএল::টেমপ্লেট::আউটপুট() একটি বড় রুটিন যার জন্য বলা হয়
প্রতিটি পরীক্ষা। যেভাবেই হোক, কিছু ঠিক করা দরকার।

YMMV।

এছাড়াও "ডেভেল::অ্যাপাচি::প্রোফাইলার" দেখুন যা "ডেভেল::প্রোফাইলার" কে "mod_perl" এ হুক করে।

বিকাশ::ক্ষুদ্র অধ্যাপক
"Devel::SmallProf" প্রোফাইলার আপনার পার্ল প্রোগ্রামের রানটাইম পরীক্ষা করে এবং একটি উত্পাদন করে
লাইন-বাই-লাইন তালিকা দেখানোর জন্য প্রতিটি লাইন কতবার কল করা হয়েছে, এবং প্রতিটি লাইন কতক্ষণ
মৃত্যুদন্ড কার্যকর করা হয়েছে। রানটাইমে পার্লে পরিচিত "-d" পতাকা সরবরাহ করে এটি বলা হয়।

$> perl -d:SmallProf wordmatch -f perl5db.pl

<...একাধিক লাইন কাটা হয়েছে...>

perl5db.pl এর জন্য wordmatch রিপোর্ট:
ফাইলে লাইন: 9428
ফাইলের শব্দ: 50243
বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: 20480
শুধুমাত্র বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: 7790
শুধুমাত্র ব্যঞ্জনবর্ণ সহ শব্দ: 4801
শুধুমাত্র বড় অক্ষর সহ শব্দ: 1316
শুধুমাত্র স্বরবর্ণ সহ শব্দ: 1701

"Devel::SmallProf" নামক একটি ফাইলে এটির আউটপুট লিখেছে smallprof.out, গতানুগতিক. দ্য
ফাইলের বিন্যাস এই মত দেখায়:

:

প্রোগ্রামটি বন্ধ হয়ে গেলে, আউটপুট পরীক্ষা করা যেতে পারে এবং যেকোনো স্ট্যান্ডার্ড ব্যবহার করে সাজানো যেতে পারে
টেক্সট ফিল্টারিং ইউটিলিটি। নিম্নলিখিত মত কিছু যথেষ্ট হতে পারে:

$> cat smallprof.out | grep \d*: | সাজান -k3 | tac | মাথা -n20

251215 1.65674 7.68000 75: যদি ( $word =~ /($regex)/ ) {
251215 0.03264 4.40000 79: ডিবাগ("শব্দ: $i_wd"।($ আছে ? 'মিলে' :
251215 0.02693 4.10000 81: ফেরত $has;
260643 0.02841 4.07000 128: যদি ( $debug ) {
260643 0.02601 4.04000 126: আমার $বার্তা = শিফট;
251215 0.02641 3.91000 73: আমার $has = 0;
251215 0.03311 3.71000 70: আমার $i_wd = শিফট;
251215 0.02699 3.69000 72: আমার $regex = শিফট;
251215 0.02766 3.68000 71: আমার $word = শিফট;
50243 0.59726 1.00000 59: $count{$i_LINES}{cons} =
50243 0.48175 0.92000 61: $count{$i_LINES}{spec} =
50243 0.00644 0.89000 56: আমার $i_cons = মিল ($i_word, $word,
50243 0.48837 0.88000 63: $count{$i_LINES}{caps} =
50243 0.00516 0.88000 58: আমার $i_caps = ম্যাচ($i_word, $word, '^[(A-
50243 0.00631 0.81000 54: আমার $i_spec = ম্যাচ($i_word, $word, '[^a-
50243 0.00496 0.80000 57: আমার $i_vows = ম্যাচ($i_word, $word,
50243 0.00688 0.80000 53: $i_word++;
50243 0.48469 0.79000 62: $count{$i_LINES}{only} =
50243 0.48928 0.77000 60: $count{$i_LINES}{vows} =

50243 0.00683 0.75000 55: আমার $i_only = ম্যাচ($i_word, $word, '^[^a-
আপনি অবিলম্বে সাবরুটিন প্রোফাইলিং মডিউলগুলিতে একটি সামান্য ভিন্ন ফোকাস দেখতে পারেন,
এবং আমরা দেখতে শুরু করি যে কোডের কোন লাইনটি সবচেয়ে বেশি সময় নিচ্ছে। যে regex লাইন
একটু সন্দেহজনক দেখাচ্ছে, উদাহরণস্বরূপ। মনে রাখবেন যে এই সরঞ্জামগুলি অনুমিত হয়
একসাথে ব্যবহার করা হয়েছে, আপনার কোড প্রোফাইল করার কোন একক সেরা উপায় নেই, আপনাকে সর্বোত্তম ব্যবহার করতে হবে
কাজের জন্য সরঞ্জাম।

এছাড়াও "Apache::SmallProf" দেখুন যা "Devel::SmallProf" কে "mod_perl" এ হুক করে।

ডেভেল::ফাস্টপ্রফেসর
"Devel::FastProf" হল আরেকটি পার্ল লাইন প্রোফাইলার। এটি পাওয়ার লক্ষ্যে লেখা হয়েছে
একটি দ্রুত লাইন প্রোফাইলার, যেমন "Devel::SmallProf" দিয়ে সম্ভব, কারণ এটি
"সি" তে লেখা। "Devel::FastProf" ব্যবহার করতে, পার্লে "-d" আর্গুমেন্ট সরবরাহ করুন:

$> perl -d:FastProf wordmatch -f perl5db.pl

<...একাধিক লাইন কাটা হয়েছে...>

perl5db.pl এর জন্য wordmatch রিপোর্ট:
ফাইলে লাইন: 9428
ফাইলের শব্দ: 50243
বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: 20480
শুধুমাত্র বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: 7790
শুধুমাত্র ব্যঞ্জনবর্ণ সহ শব্দ: 4801
শুধুমাত্র বড় অক্ষর সহ শব্দ: 1316
শুধুমাত্র স্বরবর্ণ সহ শব্দ: 1701

"Devel::FastProf" ফাইলটিতে পরিসংখ্যান লেখে fastprof.out বর্তমান ডিরেক্টরিতে।
আউটপুট ফাইল, যা নির্দিষ্ট করা যেতে পারে, "fprofpp" ব্যবহার করে ব্যাখ্যা করা যেতে পারে
কমান্ড লাইন প্রোগ্রাম।

$> fprofpp | মাথা -n20

# fprofpp আউটপুট বিন্যাস হল:
# ফাইলের নাম: লাইন সময় গণনা: উত্স
wordmatch:75 3.93338 251215: যদি ( $word =~ /($regex)/ ) {
wordmatch:79 1.77774 251215: debug("word: $i_wd ".($has ? 'মেলে' : 'মেলে না')।" অক্ষর: /$regex/");
wordmatch:81 1.47604 251215: $has ফেরত;
wordmatch:126 1.43441 260643: আমার $বার্তা = শিফট;
wordmatch:128 1.42156 260643: if ( $debug ) {
wordmatch:70 1.36824 251215: আমার $i_wd = শিফট;
wordmatch:71 1.36739 251215: আমার $word = শিফট;
wordmatch:72 1.35939 251215: আমার $regex = shift;

অবিলম্বে আমরা দেখতে পাচ্ছি যে প্রতিটি লাইন কতবার কল করা হয়েছে তা অভিন্ন
"Devel::SmallProf" আউটপুট, এবং অনুক্রম শুধুমাত্র উপর ভিত্তি করে খুব সামান্য ভিন্ন
প্রতিটি লাইন কার্যকর করতে যে পরিমাণ সময় নেয় তার ক্রম, "if ( $debug ) { " এবং "my
$message = shift;", উদাহরণস্বরূপ। রেকর্ড করা প্রকৃত সময়ের পার্থক্য হতে পারে
অভ্যন্তরীণভাবে ব্যবহৃত অ্যালগরিদম, অথবা এটি সিস্টেম সংস্থান সীমাবদ্ধতার কারণে হতে পারে বা
বিবাদ

এছাড়াও DBIx::প্রোফাইলটি দেখুন যা "DBIx::*" এর অধীনে চলমান ডেটাবেস প্রশ্নগুলিকে প্রোফাইল করবে।
নেমস্পেস

ডেভেলপ::NYTprof
"Devel::NYTprof" হল পরবর্তী প্রজন্ম পার্ল কোড প্রোফাইলার, এর মধ্যে অনেক ত্রুটিগুলি সংশোধন করা
অন্যান্য সরঞ্জাম এবং অনেক শান্ত বৈশিষ্ট্য বাস্তবায়ন. প্রথমত এটি একটি হিসাবে ব্যবহার করা যেতে পারে
লাইন প্রোফাইলার, ক বাধা বা একটি সাবরুটিন প্রোফাইলার, একযোগে। এটি উপ-ও ব্যবহার করতে পারে
সিস্টেমে মাইক্রোসেকেন্ড (100ns) রেজোলিউশন যা "clock_gettime()" প্রদান করে। এটা হতে পারে
প্রোগ্রাম প্রোফাইল করা হচ্ছে এমনকি শুরু এবং বন্ধ. এটি প্রোফাইলে একটি এক-লাইন এন্ট্রি
"mod_perl" অ্যাপ্লিকেশন। এটি "c" এ লেখা এবং সম্ভবত দ্রুততম প্রোফাইলার
পার্লের জন্য উপলব্ধ। শীতলতা তালিকা শুধু যায়. যে যথেষ্ট, আসুন কিভাবে দেখুন
এটি কাজ করে - এটিকে প্লাগ ইন করতে এবং কোডটি চালানোর জন্য শুধুমাত্র পরিচিত "-d" সুইচটি ব্যবহার করুন৷

$> perl -d:NYTprof wordmatch -f perl5db.pl

perl5db.pl এর জন্য wordmatch রিপোর্ট:
ফাইলে লাইন: 9427
ফাইলের শব্দ: 50243
বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: 20480
শুধুমাত্র বিশেষ (অ-শব্দ) অক্ষর সহ শব্দ: 7790
শুধুমাত্র ব্যঞ্জনবর্ণ সহ শব্দ: 4801
শুধুমাত্র বড় অক্ষর সহ শব্দ: 1316
শুধুমাত্র স্বরবর্ণ সহ শব্দ: 1701

"NYTprof" ফাইলটিতে একটি রিপোর্ট ডাটাবেস তৈরি করবে nytprof.out গতানুগতিক. মানব
সরবরাহ করা "nytprofhtml" (HTML) ব্যবহার করে এখান থেকে পঠনযোগ্য প্রতিবেদন তৈরি করা যেতে পারে
আউটপুট) এবং "nytprofcsv" (CSV আউটপুট) প্রোগ্রাম। আমরা ইউনিক্স সিস্টেম "html2text" ব্যবহার করেছি
ইউটিলিটি রূপান্তর করতে nytprof/index.html এখানে সুবিধার জন্য ফাইল.

$> html2text nytprof/index.html

কর্মক্ষমতা প্রোফাইল সূচক
শব্দের মিলের জন্য
শুক্রবার 26 সেপ্টেম্বর 13:46:39 2008-এ চালান৷
শুক্র সেপ্টেম্বর 26 13:47:23 2008 এ রিপোর্ট করা হয়েছে

শীর্ষ 15টি সাবরুটিন -- একচেটিয়া সময়ের দ্বারা অর্ডার করা হয়েছে৷
|কল |P |F |ইনক্লুসিভ |এক্সক্লুসিভ |সাবরুটিন |
| | | |সময় |সময় | |
|251215|5 |1 |13.09263 |10.47692 |প্রধান:: |মিলগুলি |
|260642|2 |1 |2.71199 |2.71199 |প্রধান:: |ডিবাগ |
|1 |1 |1 |0.21404 |0.21404 |প্রধান:: |প্রতিবেদন |
|2 |2 |2 |0.00511 |0.00511 |XSLloader:: |load (xsub) |
|14 |14|7 |0.00304 |0.00298 |রপ্তানিকারক:: |আমদানি |
|3 |1 |1 |0.00265 |0.00254 |রপ্তানিকারক:: |as_heavy |
|10 |10|4 |0.00140 |0.00140 |vars:: |আমদানি |
|13 |13|1 |0.00129 |0.00109 | ধ্রুবক:: | আমদানি |
|1 |1 |1 |0.00360 |0.00096 |ফাইলহ্যান্ডেল:: |আমদানি |
|3 |3 |3 |0.00086 |0.00074 |সতর্কতা::রেজিস্টার::|আমদানি |
|9 |3 |1 |0.00036 |0.00036 | কঠোর:: |বিট |
|13 |13|13|0.00032 |0.00029 | কঠোর:: | আমদানি |
|2 |2 |2 |0.00020 |0.00020 |সতর্কতা:: |আমদানি |
|2 |1 |1 |0.00020 |0.00020 |Getopt::Long:: |ParseOptionSpec|
|7 |7 |6 |0.00043 |0.00020 | কঠোর:: |unimport |

আরও তথ্যের জন্য 189টি সাবরুটিনের সম্পূর্ণ তালিকা দেখুন।

প্রতিবেদনের প্রথম অংশে ইতিমধ্যেই যা সংক্রান্ত সমালোচনামূলক তথ্য দেখানো হয়েছে
সাবরুটিন সবচেয়ে বেশি সময় ব্যবহার করছে। পরেরটি উৎস সম্পর্কে কিছু পরিসংখ্যান দেয়
প্রোফাইল করা ফাইল।

উৎস কোড ফাইল -- একচেটিয়া সময় তারপর নাম দ্বারা আদেশ
|Stmts |এক্সক্লুসিভ|গড় |প্রতিবেদন |সোর্স ফাইল |
| |সময় | | | |
|2699761|15.66654 |6e-06 |লাইন। ব্লক উপ|শব্দ মিল |
|35 |0.02187 |0.00062|লাইন। ব্লক সাব|IO/Handle.pm |
|274 |0.01525 |0.00006|লাইন। ব্লক উপ|Getopt/Long.pm |
|20 |0.00585 |0.00029|লাইন। ব্লক সাব|Fcntl.pm |
|128 |0.00340 |0.00003|লাইন। ব্লক উপ|রপ্তানিকারক/হেভি.পিএম |
|42 |0.00332 |0.00008|লাইন। ব্লক সাব|IO/File.pm |
|261 | 0.00308 | 0.00001 | লাইন। ব্লক sub|Exporter.pm |
|323 |0.00248 |8e-06 |লাইন। ব্লক sub|constant.pm |
|12 |0.00246 |0.00021|লাইন। ব্লক sub|File/Spec/Unix.pm |
|191 | 0.00240 | 0.00001 | লাইন। ব্লক উপ|vars.pm |
|77 |0.00201 |0.00003|লাইন। ব্লক sub|FileHandle.pm |
|12 |0.00198 |0.00016|লাইন। ব্লক সাব|Carp.pm |
|14 |0.00175 |0.00013|লাইন। ব্লক সাব|সিম্বল.পিএম |
|15 |0.00130 |0.00009|লাইন। ব্লক সাব|IO.pm |
|22 |0.00120 |0.00005|লাইন। ব্লক উপ|IO/Seekable.pm |
|198 |0.00085 |4e-06 |লাইন। ব্লক sub|warnings/register.pm|
|114 |0.00080 |7e-06 |লাইন। ব্লক sub|strict.pm |
|47 |0.00068 |0.00001|লাইন। ব্লক sub|warnings.pm |
|27 |0.00054 |0.00002 | লাইন। ব্লক সাব|ওভারলোড.পিএম |
|9 |0.00047 |0.00005|লাইন। ব্লক সাব|SelectSaver.pm |
|13 |0.00045 |0.00003|লাইন। ব্লক sub|File/Spec.pm |
|2701595|15.73869 | |মোট |
|128647 |0.74946 | | গড় |
| |0.00201 | 0.00003 | মাঝারি |
| |0.00121 | 0.00003 | বিচ্যুতি |

NYTprof 2.03 পার্ল প্রোফাইলার দ্বারা উত্পাদিত প্রতিবেদন, টিম বান্স দ্বারা বিকাশিত এবং
অ্যাডাম কাপলান।

এই সময়ে, যদি আপনি ব্যবহার করছেন এইচটিএমএল রিপোর্ট, আপনি বিভিন্ন লিঙ্ক মাধ্যমে ক্লিক করতে পারেন
প্রতিটি সাবরুটিন এবং কোডের প্রতিটি লাইনে বোর ডাউন। কারণ আমরা টেক্সট ব্যবহার করছি
এখানে রিপোর্ট করা হচ্ছে, এবং প্রতিটি সোর্স ফাইলের জন্য তৈরি রিপোর্টে পূর্ণ একটি সম্পূর্ণ ডিরেক্টরি রয়েছে,
আমরা শুধু সংশ্লিষ্ট একটি অংশ প্রদর্শন করব wordmatch-line.html ফাইল, যথেষ্ট
এই দুর্দান্ত সরঞ্জাম থেকে আপনি যে ধরণের আউটপুট আশা করতে পারেন তার একটি ধারণা দিন।

$> html2text nytprof/wordmatch-line.html

পারফরম্যান্স প্রোফাইল----ব্লক ভিউ-.-লাইন ভিউ-.-সাব ভিউ-
শব্দের মিলের জন্য
শুক্রবার 26 সেপ্টেম্বর 13:46:39 2008-এ চালান৷
শুক্র সেপ্টেম্বর 26 13:47:22 2008 এ রিপোর্ট করা হয়েছে

ফাইল wordmatch

সাবরুটিন -- একচেটিয়া সময় দ্বারা আদেশ করা হয়
|কল |P|F|ইনক্লুসিভ|এক্সক্লুসিভ|সাবরুটিন |
| | | |সময় |সময় | |
|251215|5|1|13.09263 |10.47692 |main::|matches|
|260642|2|1|2.71199 |2.71199 |প্রধান::|ডিবাগ |
|1 |1|1|0.21404 | 0.21404 | প্রধান:: | প্রতিবেদন |
|0 |0|0|0 |0 |প্রধান::|শুরু |

|লাইন|Stmts.|এক্সক্লুসিভ|গড় |কোড |
| | |সময় | | |
|1 | | | |#!/usr/bin/perl |
|2 | | | | |
| | | | কঠোর ব্যবহার করুন; |
|3 |3 |0.00086 |0.00029
| | | | |আমদানি |
| | | | | সতর্কতা ব্যবহার করুন; |
|4 |3 |0.01563 |0.00521|# 0.00012s খরচ করেছে সতর্কতার জন্য 1টি কল করে:
| | | | |আমদানি |
|5 | | | | |
|6 | | | |=head1 NAME |
|7 | | | | |
|8 | | | |ফাইলওয়ার্ডস - ইনপুট ফাইলের শব্দ বিশ্লেষণ |
<...স্নিপ...>
|62 |1 | 0.00445 | 0.00445 | প্রিন্ট রিপোর্ট ( % গণনা ); |
| | | | |# 0.21404s খরচ করেছে মেইন::রিপোর্ট
|63 | | | | |
| | | | |# এর মধ্যে 23.56955s (10.47692+2.61571) খরচ করেছে |
| | | | |প্রধান::ম্যাচগুলি যা 251215 বার বলা হয়েছিল, |
| | | | |গড় 0.00005s/কল: # 50243 বার |
| | | | |(2.12134+0.51939s) wordmatch এর 57 লাইনে, avg|
| | | | |0.00005s/কল #50243 বার (2.17735+0.54550s) |
|64 | | | |ওয়ার্ডম্যাচের 56 নম্বর লাইনে, গড় 0.00005s/কল # |
| | | | |50243 লাইনে 2.10992 বার (0.51797+58s) |
| | | | |wordmatch, গড় 0.00005s/কল # 50243 বার |
| | | | |(2.12696+0.51598s) wordmatch এর 55 লাইনে, avg|
| | | | |0.00005s/কল #50243 বার (1.94134+0.51687s) |
| | | | |ওয়ার্ডম্যাচের 54 নম্বর লাইনে, গড় 0.00005s/কল |
| | | | |সাব মিল { |
<...স্নিপ...>
|102 | | | | |
| | | | |# main::debug এর মধ্যে 2.71199s খরচ করেছে যা ছিল |
| | | | |260642 বার কল করা হয়েছে, গড় 0.00001s/কল: # |
| | | | |251215 বার (2.61571+0s) দ্বারা main::মেলে |
|103 | | | |ওয়ার্ডম্যাচের লাইন 74, গড় 0.00001s/কল # 9427 |
| | | | |বার (0.09628+0s) wordmatch এর 50 লাইনে, avg|
| | | | |0.00001s/কল |
| | | | |সাব ডিবাগ { |
|104 |260642|0.58496 |2e-06 |my $message = shift; |
|105 | | | | |
|106 |260642|1.09917 |4e-06 |if ( $debug ) { |
|107 | | | |STDERR "DBG: $message\n" প্রিন্ট করুন; |
|108 | | | |} |
|109 | | | |} |
|110 | | | | |
|111 |1 |0.01501 |0.01501|প্রস্থান 0; |
|112 | | | | |

সেখানে খুব দরকারী তথ্যের উডলস - এটি এগিয়ে যাওয়ার পথ বলে মনে হচ্ছে।

আরও দেখুন "Devel::NYTprof::Apache" যা "Devel::NYTprof" কে "mod_perl"-এ হুক করে।

শ্রেণীবিভাজন

পার্ল মডিউলগুলিই একমাত্র সরঞ্জাম নয় যা একজন পারফরম্যান্স বিশ্লেষকের তাদের নিষ্পত্তি, সিস্টেমে থাকে
"সময়" এর মতো সরঞ্জামগুলিকে উপেক্ষা করা উচিত নয় যেমন পরবর্তী উদাহরণ দেখায়, যেখানে আমরা একটি গ্রহণ করি
বাছাই দ্রুত তাকান. দক্ষ সম্পর্কে অনেক বই, থিসিস এবং প্রবন্ধ লেখা হয়েছে
অ্যালগরিদম বাছাই, এবং এই ধরনের কাজ পুনরাবৃত্তি করার জায়গা নয়, বেশ কিছু ভাল আছে
বাছাই করা মডিউল যাও একবার দেখার যোগ্য: "Sort::Maker", "Sort::Key" বসন্তে
মন যাইহোক, কিছু নির্দিষ্ট পার্লের উপর কিছু পর্যবেক্ষণ করা এখনও সম্ভব
ডেটা সেট বাছাই সম্পর্কিত সমস্যাগুলির ব্যাখ্যা এবং এর সাথে একটি বা দুটি উদাহরণ দিন
কিভাবে বড় ডেটা ভলিউম বাছাই কর্মক্ষমতা প্রভাবিত করতে পারে বিবেচনা. প্রথমত, একটি প্রায়ই
বৃহৎ পরিমাণে ডেটা বাছাই করার সময় উপেক্ষা করা পয়েন্ট, কেউ ডেটা কমানোর চেষ্টা করতে পারে
মোকাবেলা করা সেট এবং অনেক ক্ষেত্রে "grep()" একটি সাধারণ ফিল্টার হিসাবে বেশ কার্যকর হতে পারে:

@ডেটা = বাছাই grep { /$filter/ } @ইনকামিং

এই ধরনের একটি কমান্ড প্রকৃতপক্ষে বাছাই করার জন্য উপাদানের পরিমাণকে ব্যাপকভাবে হ্রাস করতে পারে
প্রথম স্থানে, এবং খুব হালকাভাবে তার ভিত্তিতে বিশুদ্ধভাবে উপেক্ষা করা উচিত নয়
সরলতা "KISS" নীতিটি প্রায়শই উপেক্ষা করা হয় - পরবর্তী উদাহরণটি ব্যবহার করে
প্রদর্শনের জন্য সহজ সিস্টেম "সময়" উপযোগিতা। এর একটি বাস্তব উদাহরণ কটাক্ষপাত করা যাক
একটি বড় ফাইলের বিষয়বস্তু বাছাই, একটি apache লগফাইল করবে। এই এক একটি উপর আছে
এক মিলিয়ন লাইনের চতুর্থাংশ, আকারে 50M, এবং এর একটি স্নিপেট দেখতে এইরকম:

# লগ ফাইল

188.209-65-87.adsl-dyn.isp.belgacom.be - - [08/Feb/2007:12:57:16 +0000] "GET /favicon.ico HTTP/1.1" 404 209 "-" "Mozilla/ 4.0 (সামঞ্জস্যপূর্ণ; MSIE 6.0; Windows NT 5.1; SV1)"
188.209-65-87.adsl-dyn.isp.belgacom.be - - [08/Feb/2007:12:57:16 +0000] "GET /favicon.ico HTTP/1.1" 404 209 "-" "Mozilla/ 4.0 (সামঞ্জস্যপূর্ণ; MSIE 6.0; Windows NT 5.1; SV1)"
151.56.71.198 - - [08/Feb/2007:12:57:41 +0000] "GET /suse-on-vaio.html HTTP/1.1" 200 2858 "http://www.linux-on-laptops.com/sony.html""Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"
151.56.71.198 - - [08/Feb/2007:12:57:42 +0000] "GET /data/css HTTP/1.1" 404 206"http://www.rfi.net/suse-on-vaio.html""Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"
151.56.71.198 - - [08/Feb/2007:12:57:43 +0000] "GET /favicon.ico HTTP/1.1" 404 209 "-" "Mozilla/5.0 (Windows; U; Windows NT 5.2; en- US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"
217.113.68.60 - - [08/Feb/2007:13:02:15 +0000] "GET / HTTP/1.1" 304 - "-" "Mozilla/4.0 (সামঞ্জস্যপূর্ণ; MSIE 6.0; Windows NT 5.1; SV1)"
217.113.68.60 - - [08/Feb/2007:13:02:16 +0000] "GET /data/css HTTP/1.1" 404 206"http://www.rfi.net/""Mozilla/4.0 (সামঞ্জস্যপূর্ণ; MSIE 6.0; Windows NT 5.1; SV1)"
debora.to.isac.cnr.it - ​​- [08/Feb/2007:13:03:58 +0000] "GET /suse-on-vaio.html HTTP/1.1" 200 2858 "http://www.linux-on-laptops.com/sony.html""Mozilla/5.0 (সামঞ্জস্যপূর্ণ; Konqueror/3.4; Linux) KHTML/3.4.0 (যেমন গেকো)"
debora.to.isac.cnr.it - ​​- [08/Feb/2007:13:03:58 +0000] "GET /data/css HTTP/1.1" 404 206 "http://www.rfi.net/suse-on-vaio.html""Mozilla/5.0 (সামঞ্জস্যপূর্ণ; Konqueror/3.4; Linux) KHTML/3.4.0 (যেমন গেকো)"
debora.to.isac.cnr.it - ​​- [08/Feb/2007:13:03:58 +0000] "GET /favicon.ico HTTP/1.1" 404 209 "-" "Mozilla/5.0 (সামঞ্জস্যপূর্ণ; কনকরার/ 3.4; লিনাক্স) KHTML/3.4.0 (যেমন গেকো)"
195.24.196.99 - - [08/Feb/2007:13:26:48 +0000] "GET / HTTP/1.0" 200 3309 "-" "Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.0.9) .20061206) Gecko/1.5.0.9 Firefox/XNUMX"
195.24.196.99 - - [08/Feb/2007:13:26:58 +0000] "GET /data/css HTTP/1.0" 404 206"http://www.rfi.net/""Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.0.9) Gecko/20061206 Firefox/1.5.0.9"
195.24.196.99 - - [08/Feb/2007:13:26:59 +0000] "GET /favicon.ico HTTP/1.0" 404 209 "-" "Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.0.9) Gecko/20061206 Firefox/1.5.0.9"
crawl1.cosmixcorp.com - - [08/Feb/2007:13:27:57 +0000] "GET /robots.txt HTTP/1.0" 200 179 "-" "voyager/1.0"
crawl1.cosmixcorp.com - - [08/Feb/2007:13:28:25 +0000] "GET /links.html HTTP/1.0" 200 3413 "-" "voyager/1.0"
fhm226.internetdsl.tpnet.pl - - [08/Feb/2007:13:37:32 +0000] "GET /suse-on-vaio.html HTTP/1.1" 200 2858 "http://www.linux-on-laptops.com/sony.html""Mozilla/4.0 (সামঞ্জস্যপূর্ণ; MSIE 6.0; Windows NT 5.1; SV1)"
fhm226.internetdsl.tpnet.pl - - [08/Feb/2007:13:37:34 +0000] "GET /data/css HTTP/1.1" 404 206 "http://www.rfi.net/suse-on-vaio.html""Mozilla/4.0 (সামঞ্জস্যপূর্ণ; MSIE 6.0; Windows NT 5.1; SV1)"
80.247.140.134 - - [08/Feb/2007:13:57:35 +0000] "GET/HTTP/1.1" 200 3309 "-" "Mozilla/4.0 (সামঞ্জস্যপূর্ণ; MSIE 6.0; Windows NT 5.1; .N1.1.4322CL) .XNUMX)"
80.247.140.134 - - [08/Feb/2007:13:57:37 +0000] "GET /data/css HTTP/1.1" 404 206"http://www.rfi.net""Mozilla/4.0 (সামঞ্জস্যপূর্ণ; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)"
pop.compuscan.co.za - - [08/Feb/2007:14:10:43 +0000] "GET / HTTP/1.1" 200 3309 "-" "www.clamav.net"
livebot-207-46-98-57.search.live.com - - [08/Feb/2007:14:12:04 +0000] "GET /robots.txt HTTP/1.0" 200 179 "-" "msnbot/ 1.0 (+http://search.msn.com/msnbot.htm)"
livebot-207-46-98-57.search.live.com - - [08/Feb/2007:14:12:04 +0000] "GET /html/oracle.html HTTP/1.0" 404 214 "-"" msnbot/1.0 (+http://search.msn.com/msnbot.htm)"
dslb-088-064-005-154.pools.arcor-ip.net - - [08/Feb/2007:14:12:15 +0000] "GET / HTTP/1.1" 200 3309 "-" "www.clamav .নেট"
196.201.92.41 - - [08/Feb/2007:14:15:01 +0000] "GET / HTTP/1.1" 200 3309 "-" "MOT-L7/08.B7.DCR MIB/2.2.1 প্রোফাইল/MIDP -2.0 কনফিগারেশন/CLDC-1.1"

এখানে নির্দিষ্ট কাজ হল এই ফাইলের 286,525 লাইন রেসপন্স কোড, ক্যোয়ারী, দ্বারা সাজানো।
ব্রাউজার, রেফারিং ইউআরএল এবং সবশেষে তারিখ। একটি সমাধান নিম্নলিখিত কোড ব্যবহার করা হতে পারে,
যা কমান্ড-লাইনে প্রদত্ত ফাইলগুলির উপর পুনরাবৃত্তি করে।

# sort-apache-log

#!/usr/bin/perl -n

কঠোর ব্যবহার করুন;
সতর্কতা ব্যবহার করুন;

আমার তথ্য;

লাইন:
যখন ( <> ) {
আমার $লাইন = $_;
যদি (
$লাইন =~ মি/^(
([\w\.\-]+) # ক্লায়েন্ট
\s*-\s*-\s*\[
([^]]+) # তারিখ
\]\s*"\w+\s*
(\S+) # প্রশ্ন
[^"]+"\s*
(\d+) # স্ট্যাটাস
\s+\S+\s+"[^"]*"\s+"
([^"]*) # ব্রাউজার
"
.*
)$/x
) {
my @chunks = split(/ +/, $line);
আমার $ip = $1;
আমার $তারিখ = $2;
আমার $query = $3;
আমার $স্থিতি = $4;
আমার $ব্রাউজার = $5;

push(@data, [$ip, $date, $query, $status, $browser, $line]);
}
}

আমার @sorted = সাজান {
$a->[3] cmp $b->[3]
||
$a->[2] cmp $b->[2]
||
$a->[0] cmp $b->[0]
||
$a->[1] cmp $b->[1]
||
$a->[4] cmp $b->[4]
} @ডেটা;

আমার $ডেটা ( @sorted ) {
প্রিন্ট $data->[5];
}

প্রস্থান 0;

এই প্রোগ্রামটি চালানোর সময়, "STDOUT" পুনঃনির্দেশ করুন যাতে আউটপুটটি পরীক্ষা করা সম্ভব হয়
নিম্নলিখিত পরীক্ষা রান থেকে সঠিক এবং সামগ্রিক পরীক্ষা করার জন্য সিস্টেম "সময়" ইউটিলিটি ব্যবহার করুন
রানটাইম

$> সময় ./sort-apache-log logfile > out-sort

আসল 0m17.371s
ব্যবহারকারী 0m15.757s
sys 0m0.592s

প্রোগ্রামটি চালানোর জন্য মাত্র 17 ওয়ালক্লক সেকেন্ডের বেশি সময় নিয়েছে। বিভিন্ন মান "সময়" নোট করুন
আউটপুট, সর্বদা একই ব্যবহার করা গুরুত্বপূর্ণ, এবং প্রত্যেকটি কী তা বিভ্রান্ত না করা
মানে।

অতিবাহিত বাস্তব সময়
সামগ্রিকভাবে, বা ওয়ালক্লক, কখন "সময়" বলা হয়েছিল এবং কখন এটির মধ্যে সময়
সমাপ্ত অতিবাহিত সময়ের মধ্যে ব্যবহারকারী এবং সিস্টেমের সময় এবং ব্যয় করা সময় উভয়ই অন্তর্ভুক্ত
সিস্টেমে অন্যান্য ব্যবহারকারী এবং প্রক্রিয়াগুলির জন্য অপেক্ষা করা হচ্ছে। অনিবার্যভাবে, এটি সবচেয়ে বেশি
প্রদত্ত পরিমাপের আনুমানিক।

ব্যবহারকারীর CPU সময়
ব্যবহারকারীর সময় হল ব্যবহারকারীর পক্ষে পুরো প্রক্রিয়াটি ব্যয় করা সময়ের পরিমাণ
এই সিস্টেম এই প্রোগ্রাম নির্বাহ.

সিস্টেম CPU সময়
সিস্টেমের সময় হল কার্নেল নিজেই রুটিন চালানোর জন্য যে পরিমাণ সময় ব্যয় করে, বা
সিস্টেম কল, এই প্রক্রিয়া ব্যবহারকারীর পক্ষে।

একটি "Schwarzian Transform" হিসাবে এই একই প্রক্রিয়া চলমান এটি নির্মূল করা সম্ভব
সমস্ত ডেটা সংরক্ষণের জন্য ইনপুট এবং আউটপুট অ্যারে, এবং সরাসরি ইনপুট হিসাবে কাজ করে
খুব আসে। অন্যথায়, কোডটি মোটামুটি অনুরূপ দেখায়:

# sort-apache-log-schwarzian

#!/usr/bin/perl -n

কঠোর ব্যবহার করুন;
সতর্কতা ব্যবহার করুন;

ছাপানো

মানচিত্র $_->[0] =>

সাজান {
$a->[4] cmp $b->[4]
||
$a->[3] cmp $b->[3]
||
$a->[1] cmp $b->[1]
||
$a->[2] cmp $b->[2]
||
$a->[5] cmp $b->[5]
}
মানচিত্র [ $_, m/^(
([\w\.\-]+) # ক্লায়েন্ট
\s*-\s*-\s*\[
([^]]+) # তারিখ
\]\s*"\w+\s*
(\S+) # প্রশ্ন
[^"]+"\s*
(\d+) # স্ট্যাটাস
\s+\S+\s+"[^"]*"\s+"
([^"]*) # ব্রাউজার
"
.*
)$/xo ]

=> <>;

প্রস্থান 0;

নতুন সময় পরীক্ষা করতে উপরের মতো একই লগফাইলের বিপরীতে নতুন কোড চালান।

$> সময় ./sort-apache-log-schwarzian logfile > out-schwarz

আসল 0m9.664s
ব্যবহারকারী 0m8.873s
sys 0m0.704s

সময় অর্ধেক কাটা হয়েছে, যে কোনো মান দ্বারা একটি সম্মানজনক গতি উন্নতি.
স্বাভাবিকভাবেই, প্রথম প্রোগ্রাম চালানোর সাথে আউটপুট সামঞ্জস্যপূর্ণ কিনা তা পরীক্ষা করা গুরুত্বপূর্ণ,
এখানেই ইউনিক্স সিস্টেম "ccsum" ইউটিলিটি আসে।

$> cksum আউট-সর্ট আউট-schwarz
3044173777 52029194 আউট-সর্ট
3044173777 52029194 আউট-শোয়ার্জ

BTW. ম্যানেজারদের চাপ থেকেও সাবধান থাকুন যারা দেখেন আপনি একটি প্রোগ্রামের গতি 50% বাড়িয়ে দিচ্ছেন
রানটাইম একবার, শুধুমাত্র একটি অনুরোধ পেতে এক মাস পরে আবার একই কাজ করার জন্য (সত্য ঘটনা) -
আপনাকে শুধু নির্দেশ করতে হবে আপনি শুধুমাত্র মানুষ, এমনকি যদি আপনি একজন পার্ল প্রোগ্রামার হন, এবং
আপনি কি করতে পারেন দেখবেন...

লগিং

যে কোনো ভালো উন্নয়ন প্রক্রিয়ার একটি অপরিহার্য অংশ হল যথাযথ ত্রুটি পরিচালনা করা
যথাযথভাবে তথ্যপূর্ণ বার্তা, তবে চিন্তার একটি স্কুল রয়েছে যা
পরামর্শ দেয় যে লগ ফাইল হওয়া উচিত আলাপী, যেন একরকম অবিচ্ছিন্ন আউটপুটের চেইন
প্রোগ্রামের বেঁচে থাকা নিশ্চিত করে। যদি গতি কোনোভাবে একটি সমস্যা হয়, এই পদ্ধতির হয়
ভুল।

একটি সাধারণ দৃশ্য হল কোড যা এইরকম কিছু দেখায়:

লগার->ডিবাগ ("প্রসেস-আইডির মাধ্যমে একটি লগিং বার্তা: $$ INC: "। ডাম্পার(\%INC))

সমস্যা হল এই কোডটি সর্বদা পার্স করা হবে এবং নির্বাহ করা হবে, এমনকি ডিবাগ করার সময়ও
লগিং কনফিগারেশন ফাইলের স্তরটি শূন্য। একদা ডিবাগ() সাবরুটিন হয়েছে
প্রবেশ করানো হয়েছে, এবং অভ্যন্তরীণ $debug ভেরিয়েবল শূন্য বলে নিশ্চিত করেছে, উদাহরণস্বরূপ, বার্তা
যা পাঠানো হয়েছে তা বাতিল করা হবে এবং প্রোগ্রাম চলতে থাকবে। উদাহরণে
যদিও দেওয়া হয়েছে, "\%INC" হ্যাশ ইতিমধ্যেই ডাম্প করা হবে, এবং বার্তা স্ট্রিং
নির্মাণ করা হয়েছে, যার সমস্ত কাজ বিবৃতিতে একটি ডিবাগ ভেরিয়েবল দ্বারা বাইপাস করা যেতে পারে
স্তর, এই মত:

logger->debug( "process-id এর মাধ্যমে একটি লগিং বার্তা: $$ INC: " . Dumper(\%INC) ) যদি $DEBUG হয়;

একটি সহ উভয় ফর্ম সহ একটি পরীক্ষা স্ক্রিপ্ট সেট আপ করে এই প্রভাবটি প্রদর্শন করা যেতে পারে
সাধারণ "লগার()" কার্যকারিতা অনুকরণ করতে "ডিবাগ()" সাবরুটিন।

# যদি ডিবাগ

#!/usr/bin/perl

কঠোর ব্যবহার করুন;
সতর্কতা ব্যবহার করুন;

বেঞ্চমার্ক ব্যবহার করুন;
ডেটা::ডাম্পার ব্যবহার করুন;
আমার $DEBUG = 0;

সাব ডিবাগ {
আমার $msg = শিফট;

যদি ( $DEBUG ) {
প্রিন্ট "DEBUG: $msg\n";
}
};

এইসব সময়(100000, {
'debug' => সাব {
ডিবাগ ("প্রসেস-আইডির মাধ্যমে একটি $0 লগিং বার্তা: $$"। ডাম্পার(\%INC) )
},
'ifdebug' => সাব {
ডিবাগ ( "প্রসেস-আইডির মাধ্যমে একটি $0 লগিং বার্তা: $$"। Dumper(\%INC) ) যদি $DEBUG হয়
},
});

আসুন দেখি "বেঞ্চমার্ক" এর থেকে কী তৈরি করে:

$> perl ifdebug
বেঞ্চমার্ক: টাইমিং 100000 পুনরাবৃত্তির ধ্রুবক, উপ...
ifdebug: 0 wallclock সেকেন্ড (0.01 usr + 0.00 sys = 0.01 CPU) @ 10000000.00/s (n=100000)
(সতর্কতা: একটি নির্ভরযোগ্য গণনার জন্য খুব কম পুনরাবৃত্তি)
ডিবাগ: 14 ওয়ালক্লক সেকেন্ড (13.18 usr + 0.04 sys = 13.22 CPU) @ 7564.30/s (n=100000)

একটি ক্ষেত্রে কোড, যা কোনো আউটপুট যতদূর পর্যন্ত ঠিক একই জিনিস করে
ডিবাগিং তথ্য উদ্বিগ্ন, অন্য কথায় কিছুই নয়, 14 সেকেন্ড লাগে এবং
অন্য ক্ষেত্রে কোডটি সেকেন্ডের একশতাংশ সময় নেয়। মোটামুটি নিশ্চিত দেখায়. ব্যবহার করা
স্মার্টের উপর নির্ভর না করে আপনি সাবরুটিন কল করার আগে $DEBUG ভেরিয়েবল
এর ভিতরে কার্যকারিতা।

লগিং if ডিবগ (ধ্রুবক)
একটি কম্পাইল টাইম "DEBUG" ব্যবহার করে পূর্ববর্তী ধারণাটিকে একটু এগিয়ে নেওয়া সম্ভব।
ধ্রুব।

# ifdebug-ধ্রুবক

#!/usr/bin/perl

কঠোর ব্যবহার করুন;
সতর্কতা ব্যবহার করুন;

বেঞ্চমার্ক ব্যবহার করুন;
ডেটা::ডাম্পার ব্যবহার করুন;
ধ্রুবক ব্যবহার করুন
ডিবাগ => 0
;

সাব ডিবাগ {
যদি ( ডিবাগ ) {
আমার $msg = শিফট;
প্রিন্ট "DEBUG: $msg\n";
}
};

এইসব সময়(100000, {
'debug' => সাব {
ডিবাগ ("প্রসেস-আইডির মাধ্যমে একটি $0 লগিং বার্তা: $$"। ডাম্পার(\%INC) )
},
'ধ্রুবক' => উপ {
ডিবাগ ( "প্রসেস-আইডির মাধ্যমে একটি $0 লগিং বার্তা: $$"। ডিবাগ হলে ডাম্পার(\%INC))
},
});

এই প্রোগ্রাম চালানো নিম্নলিখিত আউটপুট উত্পাদন করে:

$> perl ifdebug-constant
বেঞ্চমার্ক: টাইমিং 100000 পুনরাবৃত্তির ধ্রুবক, উপ...
ধ্রুবক: 0 ওয়ালক্লক সেকেন্ড (-0.00 usr + 0.00 sys = -0.00 CPU) @ -7205759403792793600000.00/s (n=100000)
(সতর্কতা: একটি নির্ভরযোগ্য গণনার জন্য খুব কম পুনরাবৃত্তি)
সাব: 14 ওয়ালক্লক সেকেন্ড (13.09 usr + 0.00 sys = 13.09 CPU) @ 7639.42/s (n=100000)

"DEBUG" ধ্রুবক এমনকি $debug ভেরিয়েবল দিয়ে মেঝে মুছে দেয়, যা মাইনাস এ ঘড়িতে থাকে
শূন্য সেকেন্ড, এবং একটি "সতর্কতা: একটি নির্ভরযোগ্য গণনার জন্য খুব কম পুনরাবৃত্তি" বার্তা তৈরি করে
চুক্তি মধ্যে. দেখতে কি সত্যিই ঘটছে, এবং কেন আমরা যখন খুব কম পুনরাবৃত্তি ছিল
আমরা ভেবেছিলাম আমরা 100000 চেয়েছি, আমরা নতুন পরিদর্শন করতে খুব দরকারী "B::Deparse" ব্যবহার করতে পারি
কোড:

$> perl -MO=Deparse ifdebug-constant

বেঞ্চমার্ক ব্যবহার করুন;
ডেটা::ডাম্পার ব্যবহার করুন;
ধ্রুবক ব্যবহার করুন ('DEBUG', 0);
সাব ডিবাগ {
সতর্কতা ব্যবহার করুন;
কঠোর 'refs' ব্যবহার করুন;
0;
}
সতর্কতা ব্যবহার করুন;
কঠোর 'refs' ব্যবহার করুন;
timethese(100000, {'sub', sub{
ডিবাগ করুন "প্রসেস-আইডির মাধ্যমে একটি $0 লগিং বার্তা: $$"। ডাম্পার(\%INC);
}
, 'ধ্রুবক', উপ {
0;
}
});
ifdebug-ধ্রুবক সিনট্যাক্স ঠিক আছে

আউটপুট দেখায় ধ্রুবক() সাবরুটিন আমরা পরীক্ষা করছি এর মান দিয়ে প্রতিস্থাপিত হচ্ছে
"DEBUG" ধ্রুবক: শূন্য। পরীক্ষা করা লাইন সম্পূর্ণরূপে অপ্টিমাইজ করা হয়েছে দূরে, এবং
আপনি এর চেয়ে বেশি দক্ষ হতে পারবেন না।

পোস্টস্ক্রিপ্ট

এই নথিটি হট-স্পট সনাক্তকরণ এবং পরীক্ষা করার জন্য বিভিন্ন উপায় প্রদান করেছে
কোনো পরিবর্তন কোডের রানটাইম উন্নত করেছে কিনা।

একটি চূড়ান্ত চিন্তা হিসাবে, মনে রাখবেন যে এটি (লেখার সময়) একটি তৈরি করা সম্ভব নয়
দরকারী প্রোগ্রাম যা শূন্য বা নেতিবাচক সময়ে চলবে এবং এই মৌলিক নীতি হতে পারে
হিসাবে লেখা: দরকারী প্রোগ্রাম হয় ধীর তাদের সংজ্ঞা অনুসারে। এটা অবশ্যই সম্ভব
একটি প্রায় তাত্ক্ষণিক প্রোগ্রাম লিখতে, কিন্তু এটি খুব বেশি করতে যাচ্ছে না, এখানে একটি খুব
দক্ষ এক:

$> perl -e 0

অপ্টিমাইজ করা যেকোনও "p5p" এর জন্য একটি কাজ।

onworks.net পরিষেবা ব্যবহার করে অনলাইনে perlperf ব্যবহার করুন