#!/usr/bin/perl
print "Hello, World!\n";

perl hello.pl

# यह एक कमेंट है
print "Hello, World!\n";

$name = "Alice";
$age = 25;
$temperature = 36.5;
$is_active = 1;  # सच के लिए 1, गलत के लिए खाली स्ट्रिंग

@fruits = ("apple", "banana", "cherry");
@numbers = (1, 2, 3, 4, 5);

%person = (
    "name" => "John",
    "age" => 30,
    "city" => "New York"
);

# स्ट्रिंग ऑपरेशन
$text = "Perl Programming";
print length($text);        # स्ट्रिंग लंबाई
print uc($text);            # अपरकेस में बदलें
print lc($text);            # लोअरकेस में बदलें
print substr($text, 0, 4);  # सबस्ट्रिंग निकालें

# न्यूमेरिक ऑपरेशन
$x = 10;
$y = 3;
print $x + $y;    # 13
print $x - $y;    # 7
print $x * $y;    # 30
print $x / $y;    # 3.333...
print $x % $y;    # 1 (मॉड्यूलो)

@colors = ("red", "green", "blue");

# एरे एलिमेंट्स तक पहुंचना
print $colors[0];     # "red" (सिंगल एलिमेंट के लिए $ का उपयोग करें)
print $colors[1];     # "green"
print $colors[-1];    # "blue" (अंतिम एलिमेंट)

# एरे ऑपरेशन
push(@colors, "yellow");     # अंत में जोड़ें
pop(@colors);                # अंत से हटाएं
shift(@colors);              # शुरुआत से हटाएं
unshift(@colors, "purple");  # शुरुआत में जोड़ें

# एरे फंक्शन
print scalar(@colors);       # एलिमेंट्स की संख्या
print $#colors;              # अंतिम इंडेक्स

%student = (
    name => "Alice",
    age => 20,
    major => "Computer Science"
);

# हैश एलिमेंट्स तक पहुंचना
print $student{"name"};     # "Alice"
print $student{age};        # 20

# हैश ऑपरेशन
$student{"gpa"} = 3.8;     # नया की-वैल्यू पेयर जोड़ें
delete $student{"age"};    # की-वैल्यू पेयर हटाएं

# हैश फंक्शन
@keys = keys %student;      # सभी की प्राप्त करें
@values = values %student;  # सभी वैल्यू प्राप्त करें

$age = 20;
if ($age >= 18) {
    print "Adult\n";
} elsif ($age >= 13) {
    print "Teen\n";
} else {
    print "Child\n";
}

# वन-लाइन if
print "Adult\n" if $age >= 18;

$age = 15;
unless ($age >= 18) {
    print "Not an adult\n";
}

# वन-लाइन unless
print "Not an adult\n" unless $age >= 18;

$count = 0;
while ($count < 5) {
    print "Count: $count\n";
    $count++;
}

for ($i = 0; $i < 5; $i++) {
    print "i = $i\n";
}

@fruits = ("apple", "banana", "cherry");
foreach $fruit (@fruits) {
    print "Fruit: $fruit\n";
}

# डिफॉल्ट वेरिएबल $_ का उपयोग करना
foreach (@fruits) {
    print "Fruit: $_\n";
}

foreach (1..10) {
    last if $_ == 5;     # लूप से बाहर निकलें
    next if $_ % 2 == 0; # सम संख्याओं को छोड़ें
    print "$_\n";        # आउटपुट: 1, 3
}

sub greet {
    my $name = shift;
    return "Hello, $name!";
}

# सबरूटीन को कॉल करना
$message = greet("John");
print $message;

sub add_numbers {
    my ($a, $b) = @_;
    return $a + $b;
}

$result = add_numbers(5, 3);
print "Sum: $result\n";

sub greet {
    my ($name, $greeting) = @_;
    $greeting = "Hello" unless defined $greeting;
    return "$greeting, $name!";
}

print greet("Alice");          # "Hello, Alice!"
print greet("Bob", "Hi");      # "Hi, Bob!"

$text = "Hello, World!";

if ($text =~ /Hello/) {
    print "Found 'Hello'\n";
}

# केस-इनसेंसिटिव मैचिंग
if ($text =~ /world/i) {
    print "Found 'world' (case-insensitive)\n";
}

$text = "I like cats and cats are cute";
$text =~ s/cats/dogs/g;  # सभी घटनाओं को बदलें
print "$text\n";         # "I like dogs and dogs are cute"

$email = "[email protected]";
if ($email =~ /(\w+)@(\w+\.\w+)/) {
    print "Username: $1\n";      # "user"
    print "Domain: $2\n";        # "example.com"
}

# पूरी फाइल पढ़ें
open(my $fh, '<', 'example.txt') or die "Cannot open file: $!";
my $content = do { local $/; <$fh> };
close($fh);
print $content;

# लाइन बाय लाइन पढ़ें
open(my $fh, '<', 'example.txt') or die "Cannot open file: $!";
while (my $line = <$fh>) {
    print $line;
}
close($fh);

# फाइल में लिखें
open(my $fh, '>', 'output.txt') or die "Cannot open file: $!";
print $fh "Hello, Perl!\n";
close($fh);

# फाइल में एपेंड करें
open(my $fh, '>>', 'output.txt') or die "Cannot open file: $!";
print $fh "Appending new content.\n";
close($fh);

$text = "  Perl Programming  ";
print length($text);        # स्ट्रिंग लंबाई
print uc($text);            # अपरकेस में बदलें
print lc($text);            # लोअरकेस में बदलें
print substr($text, 0, 4);  # सबस्ट्रिंग निकालें
print index($text, "Prog"); # सबस्ट्रिंग पोजिशन ढूंढें

@numbers = (3, 1, 4, 1, 5, 9, 2);
print join(", ", sort @numbers);      # "1, 1, 2, 3, 4, 5, 9"
print join(", ", reverse @numbers);   # "2, 9, 5, 1, 4, 1, 3"

# एरे फिल्टर करें
@filtered = grep { $_ > 3 } @numbers;
print join(", ", @filtered);          # "4, 5, 9"

# एरे ट्रांसफॉर्म करें
@doubled = map { $_ * 2 } @numbers;
print join(", ", @doubled);           # "6, 2, 8, 2, 10, 18, 4"

%person = (name => "Alice", age => 25, city => "New York");
@keys = keys %person;      # सभी की प्राप्त करें
@values = values %person;  # सभी वैल्यू प्राप्त करें

# चेक करें कि की मौजूद है
if (exists $person{age}) {
    print "Age exists\n";
}

use strict;
use warnings;
use Data::Dumper;

%data = (name => "Bob", age => 30);
print Dumper(\%data);  # डेटा स्ट्रक्चर को प्रीटी प्रिंट करें

# CPAN से मॉड्यूल इंस्टॉल करें
cpan install JSON

use JSON;

# JSON पार्स करें
$json_string = '{"name": "Alice", "age": 25}';
$person = decode_json($json_string);
print $person->{name};  # "Alice"

# JSON जनरेट करें
$person_hash = { name => "Bob", age => 30 };
$json_output = encode_json($person_hash);
print $json_output;  # {"name":"Bob","age":30}