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

কার্যক্রম:

NAME এর

perllol - পার্লে অ্যারের অ্যারে ম্যানিপুলেট করা

বর্ণনাঃ

ঘোষণা এবং প্রবেশ of অ্যারেগুলির of অ্যারেগুলির
পার্লে তৈরি করা সবচেয়ে সহজ দুই-স্তরের ডেটা স্ট্রাকচার হল অ্যারের একটি অ্যারে, কখনও কখনও
আকস্মিকভাবে তালিকার একটি তালিকা বলা হয়। এটা বুঝতে যুক্তিসঙ্গতভাবে সহজ, এবং প্রায়
এখানে প্রযোজ্য সবকিছুই পরবর্তীতে ফ্যান্সিয়ার ডেটার সাথে প্রযোজ্য হবে
কাঠামো

অ্যারের একটি অ্যারে শুধুমাত্র একটি নিয়মিত পুরানো অ্যারে @AoA যা আপনি দুটি দিয়ে পেতে পারেন
সাবস্ক্রিপ্ট, যেমন $AoA[3][2]। এখানে অ্যারের একটি ঘোষণা:

5.010 ব্যবহার করুন; # তাই আমরা say() ব্যবহার করতে পারি

# আমাদের অ্যারেতে বরাদ্দ করুন, অ্যারের রেফারেন্সের একটি অ্যারে
@AoA = (
[ "ফ্রেড", "বার্নি", "পেবেলস", "বামবাম", "ডিনো", ],
[ "জর্জ", "জেন", "এলরয়", "জুডি", ],
[ "হোমার", "বার্ট", ​​"মার্গ", "ম্যাগি", ],
);
$AoA[2][1] বলুন;
Bart

এখন আপনি খুব সতর্কতা অবলম্বন করা উচিত যে বাইরের বন্ধনী টাইপ একটি বৃত্তাকার এক, যে, a
বন্ধনী কারণ আপনি একটি @array এ বরাদ্দ করছেন, তাই আপনার বন্ধনী প্রয়োজন। যদি
আপনি সেখানে চেয়েছিলেন না একটি @AoA হতে, বরং এটির একটি রেফারেন্স, আপনি করতে পারেন
এই মত আরো কিছু:

# অ্যারের রেফারেন্সের অ্যারের জন্য একটি রেফারেন্স বরাদ্দ করুন
$ref_to_AoA = [
[ "ফ্রেড", "বার্নি", "পেবেলস", "বামবাম", "ডিনো", ],
[ "জর্জ", "জেন", "এলরয়", "জুডি", ],
[ "হোমার", "বার্ট", ​​"মার্গ", "ম্যাগি", ],
];
বলুন $ref_to_AoA->[2][1];
Bart

লক্ষ্য করুন যে বাইরের বন্ধনীর ধরন পরিবর্তিত হয়েছে, এবং তাই আমাদের অ্যাক্সেস সিনট্যাক্সও পরিবর্তিত হয়েছে।
কারণ সি এর বিপরীতে, পার্লে আপনি অবাধে অ্যারে এবং রেফারেন্সগুলি বিনিময় করতে পারবেন না
সেখানে $ref_to_AoA একটি অ্যারের একটি রেফারেন্স, যেখানে @AoA একটি অ্যারে সঠিক।
একইভাবে, $AoA[2] একটি অ্যারে নয়, বরং একটি অ্যারে রেফ। তাহলে কিভাবে আপনি এই লিখতে পারেন:

$AoA[2][2]
$ref_to_AoA->[2][2]

পরিবর্তে এইগুলি লিখতে হবে:

$AoA[2]->[2]
$ref_to_AoA->[2]->[2]

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

ক্রমবর্ধমান আপনার নিজের
এটি একটি নির্দিষ্ট ডেটা কাঠামো ঘোষণার জন্য ভাল এবং ভাল, তবে আপনি যদি চান তবে কী হবে
ফ্লাইতে নতুন উপাদান যোগ করতে, বা স্ক্র্যাচ থেকে সম্পূর্ণরূপে এটি তৈরি করতে?

প্রথমত, আসুন একটি ফাইল থেকে এটি পড়ার দিকে তাকাই। এটি একটি এ একটি সারি যোগ করার মত কিছু
সময় আমরা অনুমান করব যে একটি সমতল ফাইল রয়েছে যেখানে প্রতিটি লাইন একটি সারি এবং প্রতিটি শব্দ একটি
উপাদান আপনি যদি এই সমস্ত সমন্বিত একটি @AoA অ্যারে বিকাশ করার চেষ্টা করছেন তবে এখানে ডান
এটি করার উপায়:

যখন (<>) {
@tmp = বিভক্ত;
পুশ @AoA, [ @tmp];
}

আপনি এটি একটি ফাংশন থেকে লোড করতে পারেন:

$i ( 1 .. 10 ) {
$AoA[$i] = [ somefunc($i)];
}

অথবা আপনি একটি অস্থায়ী পরিবর্তনশীল ছিল হতে পারে এটি মধ্যে অ্যারের সঙ্গে প্রায় বসা.

$i ( 1 .. 10 ) {
@tmp = somefunc($i);
$AoA[$i] = [ @tmp];
}

এটি গুরুত্বপূর্ণ যে আপনি "[ ]" অ্যারে রেফারেন্স কনস্ট্রাক্টর ব্যবহার করতে ভুলবেন না। এটার কারন
এটি কাজ করবে না:

$AoA[$i] = @tmp; #ভুল!

আপনি যা চান তা না করার কারণ হল একটি নামক অ্যারে বরাদ্দ করা
স্কেলার স্কেলার প্রসঙ্গে একটি অ্যারে নিচ্ছে, যার মানে শুধু সংখ্যা গণনা করে
@tmp-এ উপাদান।

আপনি যদি "ব্যবহার কঠোর" এর অধীনে দৌড়াচ্ছেন (এবং যদি আপনি না হন, তাহলে বিশ্বে আপনি কেন নন?),
এটি খুশি করার জন্য আপনাকে কিছু ঘোষণা যোগ করতে হবে:

কঠোর ব্যবহার করুন;
আমার (@AoA, @tmp);
যখন (<>) {
@tmp = বিভক্ত;
পুশ @AoA, [ @tmp];
}

অবশ্যই, আপনার নাম রাখার জন্য অস্থায়ী অ্যারের প্রয়োজন নেই:

যখন (<>) {
পুশ @AoA, [ বিভক্ত ];
}

এছাড়াও আপনি ব্যবহার করতে হবে না ধাক্কা (). আপনি যদি জানতেন তবে আপনি সরাসরি অ্যাসাইনমেন্ট করতে পারেন
যেখানে আপনি এটি রাখতে চেয়েছিলেন:

আমার (@AoA, $i, $line);
$i ( 0 .. 10 ) {
$লাইন = <>;
$AoA[$i] = [ বিভক্ত " ", $লাইন ];
}

বা এমনকি শুধু

আমার (@AoA, $i);
$i ( 0 .. 10 ) {
$AoA[$i] = [ বিভক্ত " ", <> ];
}

আপনার সাধারণভাবে এমন ফাংশনগুলি ব্যবহার করার ব্যাপারে উদাসীন হওয়া উচিত যা সম্ভাব্যভাবে তালিকাগুলি ফিরিয়ে দিতে পারে
সুস্পষ্টভাবে যেমন উল্লেখ না করে স্কেলার প্রসঙ্গ। এটি নৈমিত্তিকদের কাছে আরও পরিষ্কার হবে
পাঠক:

আমার (@AoA, $i);
$i ( 0 .. 10 ) {
$AoA[$i] = [ বিভক্ত " ", স্কেলার(<>) ];
}

আপনি যদি একটি অ্যারের রেফারেন্স হিসাবে একটি $ref_to_AoA ভেরিয়েবল রাখতে চান তবে আপনাকে এটি করতে হবে
এটার মতো কিছু:

যখন (<>) {
পুশ @$ref_to_AoA, [ বিভক্ত ];
}

এখন আপনি নতুন সারি যোগ করতে পারেন. নতুন কলাম যোগ সম্পর্কে কি? যদি আপনি ঠিক সঙ্গে ডিল করছি
ম্যাট্রিক্সে, সাধারণ অ্যাসাইনমেন্ট ব্যবহার করা প্রায়শই সহজ:

$x (1 .. 10) {
$y (1 .. 10) {
$AoA[$x][$y] = func($x, $y);
}
}

$x ( 3, 7, 9 ) {
$AoA[$x][20] += func2($x);
}

এই উপাদানগুলি ইতিমধ্যে আছে কিনা তা কোন ব্যাপার না: এটি আনন্দের সাথে তৈরি করবে
সেগুলি আপনার জন্য, হস্তক্ষেপকারী উপাদানগুলিকে প্রয়োজন অনুসারে "undef" তে সেট করুন।

আপনি যদি কেবল একটি সারিতে যুক্ত করতে চান তবে আপনাকে দেখতে কিছুটা মজাদার কিছু করতে হবে:

# একটি বিদ্যমান সারিতে নতুন কলাম যোগ করুন
পুশ @{ $AoA[0] }, "উইলমা", "বেটি"; # সুস্পষ্ট deref

পার্ল 5.14 এর আগে, এটি কম্পাইলও করবে না:

পুশ $AoA[0], "উইলমা", "বেটি"; # অন্তর্নিহিত deref

কিভাবে? কারণ এক সময় তর্কবিতর্ক হয় ধাক্কা () একটি বাস্তব অ্যারে হতে হবে, না
শুধু একটি রেফারেন্স। এটা আর সত্য নয়। আসলে, লাইনটি "অন্তর্নিহিত ডেরেফ" চিহ্নিত করেছে
উপরে ঠিক কাজ করে-- এই উদাহরণে-- যা বলে যে স্পষ্ট ডেরেফ করেছে তা করতে।

আমি "এই দৃষ্টান্তে" বলার কারণ হল যে কেবল কাজ করে কারণ $AoA[0] ইতিমধ্যেই
একটি অ্যারে রেফারেন্স অনুষ্ঠিত. আপনি একটি অনির্ধারিত ভেরিয়েবলের উপর যে চেষ্টা করলে, আপনি একটি নিতে হবে
ব্যতিক্রম কারণ অন্তর্নিহিত ডিরেফারেন্স কখনই একটি অসংজ্ঞায়িতকে স্বয়ংক্রিয়ভাবে জীবিত করবে না
পরিবর্তনশীল যেভাবে "@{ }" সর্বদা করবে:

আমার $আরেফ = undef;
push $aref, qw(আরো কিছু মান); #ভুল!
পুশ @$আরেফ, qw(আরো কিছু); # ঠিক আছে

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

v5.14 ব্যবহার করুন; # অ্যারে অপ্স দ্বারা অ্যারে রেফের অন্তর্নিহিত ডেরেফের জন্য প্রয়োজন

ফাইলের শীর্ষে নির্দেশিকা যা প্রয়োজন। যেভাবে যখন কেউ চালানোর চেষ্টা করে
একটি পুরানো পার্লের অধীনে নতুন কোড, যেমন একটি ত্রুটি পাওয়ার চেয়ে

পুশ করার জন্য arg 1-এর ধরন অবশ্যই ""betty";" এর কাছে /tmp/a লাইন 8-এ অ্যারে (অ্যারে উপাদান নয়) হতে হবে;
কম্পাইলেশন ত্রুটির কারণে /tmp/a এর এক্সিকিউশন বাতিল করা হয়েছে।

তাদের বিনীতভাবে তা জানানো হবে

পার্ল v5.14.0 আবশ্যক--এটি শুধুমাত্র v5.12.3, /tmp/a লাইন 1 এ থামে।
BEGIN ব্যর্থ হয়েছে-- /tmp/a লাইন 1 এ সংকলন বাতিল করা হয়েছে।

প্রবেশ এবং মুদ্রণ
এখন আপনার ডেটা স্ট্রাকচার প্রিন্ট করার সময়। আপনি কিভাবে যে কি করতে যাচ্ছি? তাহোলে
আপনি শুধুমাত্র একটি উপাদান চান, এটি তুচ্ছ:

$AoA[0][0] প্রিন্ট করুন;

আপনি যদি পুরো জিনিসটি প্রিন্ট করতে চান তবে আপনি বলতে পারবেন না

প্রিন্ট @AoA; #ভুল

কারণ আপনি শুধু তালিকাভুক্ত রেফারেন্স পাবেন, এবং পার্ল কখনই স্বয়ংক্রিয়ভাবে ডিরেফারেন্স করবে না
আপনার জন্য জিনিস. পরিবর্তে, আপনি নিজেকে একটি লুপ বা দুই রোল আছে. এই পুরো প্রিন্ট
গঠন, শেল-স্টাইল ব্যবহার করে জন্য() এর বাইরের সেট জুড়ে লুপ করার জন্য গঠন করুন
সাবস্ক্রিপ্ট

$aref (@AoA) {
বলুন "\t [ @$aref],";
}

আপনি যদি সাবস্ক্রিপ্টগুলির ট্র্যাক রাখতে চান তবে আপনি এটি করতে পারেন:

$i ( 0 .. $#AoA ) {
বলুন "\t elt $i হল [ @{$AoA[$i]} ],";
}

অথবা হয়ত এই. ভিতরের লুপ লক্ষ্য করুন।

$i ( 0 .. $#AoA ) {
$j ( 0 .. $#{$AoA[$i]} ) {
বলুন "elt $i $j হল $AoA[$i][$j]";
}
}

আপনি দেখতে পাচ্ছেন, এটি কিছুটা জটিল হচ্ছে। যে কারণে কখনও কখনও একটি গ্রহণ করা সহজ হয়
আপনার মাধ্যমে অস্থায়ী:

$i ( 0 .. $#AoA ) {
$আরেফ = $AoA[$i];
$j ( 0 .. $#{$aref} ) {
বলুন "elt $i $j হল $AoA[$i][$j]";
}
}

হুম... এটা এখনও একটু কুৎসিত। এই সম্পর্কে কিভাবে:

$i ( 0 .. $#AoA ) {
$আরেফ = $AoA[$i];
$n = @$ আরেফ - 1;
$j ( 0 .. $n ) {
বলুন "elt $i $j হল $AoA[$i][$j]";
}
}

আপনি যখন আপনার ডেটা স্ট্রাকচারের জন্য একটি কাস্টম প্রিন্ট লিখতে ক্লান্ত হয়ে পড়েন, তখন আপনি দেখতে পারেন
স্ট্যান্ডার্ড ডাম্পভ্যালু বা ডেটা::ডাম্পার মডিউল। প্রাক্তন পার্ল ডিবাগার কি
ব্যবহার করে, যখন পরেরটি পার্সযোগ্য পার্ল কোড তৈরি করে। উদাহরণ স্বরূপ:

v5.14 ব্যবহার করুন; # + প্রোটোটাইপ ব্যবহার করে, v5.14-এ নতুন

সাব শো(+) {
ডাম্পভ্যালু প্রয়োজন;
state $prettily = নতুন ডাম্পভ্যালু::
টিক => q("),
compactDump => 1, # মন্তব্য এই দুটি লাইন আউট
veryCompact => 1, # যদি আপনি একটি বড় ডাম্প চান
;
dumpValue $prettily @_;
}

# একটি অ্যারেতে অ্যারে রেফারেন্সের একটি তালিকা বরাদ্দ করুন।
আমার @AoA = (
[ "ফ্রেড", "বার্নি"],
[ "জর্জ", "জেন", "এলরয়"],
[ "হোমার", "মার্গ", "বার্ট"],
);
পুশ $AoA[0], "উইলমা", "বেটি";
@AoA দেখান;

প্রিন্ট আউট হবে:

0 0..3 "ফ্রেড" "বার্নি" "উইলমা" "বেটি"
1 0..2 "জর্জ" "জেন" "এলরয়"
2 0..2 "হোমার" "মার্জ" "বার্ট"

যেখানে আপনি যদি দুটি লাইন মন্তব্য করেন যা আমি বলেছিলাম আপনি চান, তাহলে এটি আপনাকে দেখায়
পরিবর্তে এই উপায়:

0 পৌঁছে দিন(0x8031d0)
0 "ফ্রেড"
1 "বার্নি"
2 "উইলমা"
3 "বেটি"
1 পৌঁছে দিন(0x803d40)
0 "জর্জ"
1 "জেন"
2 "এলরয়"
2 পৌঁছে দিন(0x803e10)
0 "হোমার"
1 "মার্জ"
2 "বার্ট"

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

এখানে একটি লুপ ব্যবহার করে কিভাবে একটি অপারেশন করতে হয়. আমরা আগের মত একটি @AoA ভেরিয়েবল ধরে নেব।

@পার্ট = ();
$x = 4;
($y = 7; $y <13; $y++) {
পুশ @part, $AoA[$x][$y];
}

একই লুপ একটি স্লাইস অপারেশন দিয়ে প্রতিস্থাপন করা যেতে পারে:

@পার্ট = @{$AoA[4] [7..12];

অথবা একটু ফাঁকা করে:

@পার্ট = @{ $AoA[4] } [ 7..12];

কিন্তু আপনি ভালভাবে কল্পনা করতে পারেন, এটি পাঠকের উপর বেশ রুক্ষ হতে পারে।

আহ, কিন্তু যদি আপনি একটি চান কি দ্বিমাত্রিক ফালি, যেমন 4..8 এবং $y থেকে $x চালানো
7 থেকে 12 পর্যন্ত চালান? হুম... সহজ উপায় এখানে:

@newAoA = ();
($startx = $x = 4; $x <= 8; $x++) {
($starty = $y = 7; $y <= 12; $y++) {
$newAoA[$x - $startx][$y - $starty] = $AoA[$x][$y];
}
}

আমরা স্লাইসের মাধ্যমে কিছু লুপিং কমাতে পারি

($x = 4; $x <= 8; $x++) {
পুশ @newAoA, [ @{ $AoA[$x] } [ 7..12 ] ];
}

আপনি যদি শোয়ার্টজিয়ান ট্রান্সফর্মসে থাকতেন, আপনি সম্ভবত এর জন্য মানচিত্র নির্বাচন করতেন

@newAoA = মানচিত্র { [ @{ $AoA[$_] } [ 7..12 ] ] } 4 .. 8;

যদিও আপনার ম্যানেজার আপনাকে চাকরির নিরাপত্তা (বা দ্রুত নিরাপত্তাহীনতা) চাওয়ার জন্য অভিযুক্ত করেছেন
অস্পষ্ট কোড, এটা তর্ক করা কঠিন হবে. :-) আমি যদি আপনি হতাম, আমি এটি একটিতে রাখতাম
ফাংশন:

@newAoA = splice_2D( \@AoA, 4 => 8, 7 => 12);
sub splice_2D {
আমার $lrr = শিফট; # রেফ থেকে অ্যারে রেফের অ্যারে!
আমার ($x_lo, $x_hi,
$y_lo, $y_hi) = @_;

ফিরতি মানচিত্র {
[ @{ $lrr->[$_] } [ $y_lo .. $y_hi ] ]
} $x_lo .. $x_hi;
}

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