পার্ল

my @fruits = ("আপেল", "আঙ্গুর", "কমলা", "কলা");

print "<ul>\n";

foreach my $fruit (@fruits) {
  print "<li>$fruit</li>\n";
}

print "</ul>";

my %info = (
  "নাম" => "মোঃ আরিফ",
  "দেশ" => "বাংলাদেশ"
);

print "<table border='1'>\n";

foreach my $key (keys %info) {
  my $val = $info{$key};

  print "<tr>\n";
  print "<th>$key</th>\n";
  print "<td>$val</td>\n";
  print "</tr>\n";
}

print "</table>";

my %user = (
  "নাম" => "মোঃ আরিফ",
  "তথ্য" => {
    "স্বপ্ন" => "সফটওয়্যার ইঞ্জিনিয়ার",
    "দেশ" => "বাংলাদেশ"
  }
);

print "<table border='1'>\n";

print "<tr>\n";
print "<th>নাম</th>\n";
print "<td>" . $user{"নাম"} . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>তথ্য</th>\n";
print "<td>\n";

print "<table border='1'>\n";

print "<tr>\n";
print "<th>স্বপ্ন</th>\n";
print "<td>" . $user{"তথ্য"}{"স্বপ্ন"} . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>দেশ</th>\n";
print "<td>" . $user{"তথ্য"}{"দেশ"} . "</td>\n";
print "</tr>\n";

print "</table>\n";

print "</td>\n";
print "</tr>\n";

print "</table>";

my %user = (
  "নাম" => "মোঃ আরিফ",
  "দক্ষতা" => ["পিএইচপি", "জাভা", "পাইথন", "জাভাস্ক্রিপ্ট"]
);

print "<h3>তথ্য</h3>\n";

print "<table border='1'>\n";

print "<tr>\n";
print "<th>নাম</th>\n";
print "<td>" . $user{"নাম"} . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>দক্ষতা</th>\n";
print "<td>" . join(", ", @{$user{"দক্ষতা"}}) . "</td>\n";
print "</tr>\n";

print "</table>";

my %user = (
  "নাম" => "মোঃ আরিফ",
  "তথ্য" => {
    "স্বপ্ন" => "সফটওয়্যার ইঞ্জিনিয়ার",
    "দেশ" => "বাংলাদেশ"
  }
);

print "<table border='1'>\n";

print "<tr>\n";
print "<th>নাম</th>\n";
print "<td>" . $user{"নাম"} . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>তথ্য</th>\n";
print "<td>\n";

print "<table border='1'>\n";

print "<tr>\n";
print "<th>স্বপ্ন</th>\n";
print "<td>" . $user{"তথ্য"}{"স্বপ্ন"} . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>দেশ</th>\n";
print "<td>" . $user{"তথ্য"}{"দেশ"} . "</td>\n";
print "</tr>\n";

print "</table>\n";

print "</td>\n";
print "</tr>\n";

print "</table>";

my %user = (
  "নাম" => "মোঃ আরিফ",
  "কাজ" => "প্রোগ্রামিং",
  "দক্ষতা" => ["পিএইচপি", "পাইথন", "জাভাস্ক্রিপ্ট"],
  "তথ্য" => {
    "দেশ" => "বাংলাদেশ"
  }
);

print "<table border='1'>\n";

print "<tr>\n";
print "<th colspan='2'>তথ্য</th>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>নাম</th>\n";
print "<td>" . $user{"নাম"} . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>কাজ</th>\n";
print "<td>" . $user{"কাজ"} . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>দক্ষতা</th>\n";
print "<td>" . join(", ", @{$user{"দক্ষতা"}}) . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>তথ্য</th>\n";
print "<td>\n";

print "<table border='1'>\n";

print "<tr>\n";
print "<th>দেশ</th>\n";
print "<td>" . $user{"তথ্য"}{"দেশ"} . "</td>\n";
print "</tr>\n";

print "</table>\n";

print "</td>\n";
print "</tr>\n";

print "</table>";

my @users = (
  ["10", "তানিম", "বাংলাদেশ"],
  ["11", "জোহান", "নেদারল্যান্ড"],
  ["12", "হামিদ", "আফগানিস্তান"],
  ["13", "সাকিব", "বাংলাদেশ"]
);

print "<table border='1'>\n";

print "<tr>\n";
print "<th>আইডি</th>\n";
print "<th>নাম</th>\n";
print "<th>দেশ</th>\n";
print "</tr>\n";

foreach my $user (@users) {
  print "<tr>\n";
  print "<td>$user->[0]</td>\n";
  print "<td>$user->[1]</td>\n";
  print "<td>$user->[2]</td>\n";
  print "</tr>\n";
}

print "</table>";

my @users = (
  [10, "তানিম", "বাংলাদেশ"],
  [11, "জোহান", "নেদারল্যান্ড"],
  [12, "হামিদ", "আফগানিস্তান"],
  [13, "সাকিব", "বাংলাদেশ"]
);

print "<table border='1'>\n";

print "<tr>\n";
print "<th>আইডি</th>\n";
print "<th>নাম</th>\n";
print "<th>দেশ</th>\n";
print "</tr>\n";

foreach my $user (@users) {
  print "<tr>\n";
  print "<td>$user->[0]</td>\n";
  print "<td>$user->[1]</td>\n";
  print "<td>$user->[2]</td>\n";
  print "</tr>\n";
}

print "</table>";

my @users = (
  { "আইডি" => 10, "নাম" => "তানিম", "দেশ" => "বাংলাদেশ" },
  { "আইডি" => 11, "নাম" => "জোহান", "দেশ" => "নেদারল্যান্ড" },
  { "আইডি" => 12, "নাম" => "হামিদ", "দেশ" => "আফগানিস্তান" },
  { "আইডি" => 13, "নাম" => "সাকিব", "দেশ" => "বাংলাদেশ" }
);

print "<table border='1'>\n";

print "<thead>\n";
print "<tr>\n";

foreach my $key (keys %{$users[0]}) {
  print "<th>$key</th>\n";
}

print "</tr>\n";
print "</thead>\n";

print "<tbody>\n";

foreach my $user (@users) {
  print "<tr>\n";

  foreach my $value (values %{$user}) {
    print "<td>$value</td>\n";
  }

  print "</tr>\n";
}

print "</tbody>\n";
print "</table>";

my @users = (
  ["id", "name", "land"],
  [10, "তানিম", "বাংলাদেশ"],
  [11, "জোহান", "নেদারল্যান্ড"],
  [12, "হামিদ", "আফগানিস্তান"],
  [13, "সাকিব", "বাংলাদেশ"]
);

print "<table border='1'>\n";

foreach my $index (0 .. $#users) {
  my $user = $users[$index];

  print "<tr>\n";

  foreach my $value (@$user) {
    my $tag = $index == 0 ? "th" : "td";
    print "<$tag>$value</$tag>\n";
  }

  print "</tr>\n";
}

print "</table>";