Korzystanie z pętli foreach w Perl

„Pętla jest używana do wielokrotnego iteracji niektórych stwierdzeń. dla każdego pętla jest jedną z przydatnych pętli Perla. Ta pętla jest używana głównie do iterowania szeregu wartości zawierających listę danych. Można go również używać do innych celów, takich jak odczyt treści plików, kontrolowanie iteracji za pomocą różnych słów kluczowych itp. Różne zastosowania dla każdego Pętla została pokazana w tym samouczku."

Składnia

Różne składni dla każdego Pętla podano poniżej.

A. foreach var (tablica)
sprawozdania);

Powyższa pętla foreach jest używana do iteracji wartości tablicy.

B. foreach var (file_handler)
sprawozdania);

Powyższa pętla Foreach służy do odczytu zawartości pliku.

C. foreach var ()
sprawozdania);

Powyższa pętla Foreach służy do odczytania wejść użytkownika.

W następnej części tego samouczka pokazano różne zastosowania pętli foreach.

Przykład-1: Przeczytaj tablicę jednowymiarową

Utwórz plik perla z następującym kodem, który iteruje wartości jednowymiarowej tablicy za pomocą a dla każdego pętla i wydrukuj każdą wartość tablicy w linii. W kodzie zdefiniowano tablicę 5 wartości. W każdej iteracji pętli każda wartość tablicy będzie analizowana i wydrukowana na wyjściu z nową linią.

# Deklaruj tablicę wartości ciągu
@students = („Mir Sabbir”, „Meena Chowdhury”, „Lisa Rahman”, „Nirob Hossain”, „Keya Khan”);
# Iteruj wartości tablicy za pomocą pętli foreach
Foreach $ value (@students)

# Wydrukuj wartość tablicy
wydrukuj „$ value \ n”;

Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.

Przykład-2: Przeczytaj dwuwymiarową tablicę

Utwórz plik perla z następującym kodem, który iteruje wartości dwuwymiarowej tablicy za pomocą a dla każdego pętla i wydrukuj każdą wartość tablicy w linii. W kodzie zdefiniowano dwuwymiarową tablicę 4 wierszy i 3 kolumn. Dodatkowa nowa linia została dodana po iterowaniu wszystkich wartości rzędu. Wartości każdego wiersza zostały przeanalizowane za pomocą zmiennej obiektu zdefiniowanej w pętli.

# Deklaruj dwuwymiarową tablicę
@Students = (

id => '20227856',
Nazwa => „Neha Ali”,
Znaki => 89
,

id => '20224523',
Nazwa => „Mizanur Rahman”,
Znaki => 95
,

id => '20221278',
Nazwa => „Ruhul Amin”,
Znaki => 69
,

id => '20228956',
Nazwa => „Mehrab Hossain”,
Znaki => 70
,
);
# Iteruj wartości tablicy
Foreach $ std (@students)

# Wydrukuj wartości tablicy
Wydrukuj „identyfikator studencki:”, $ std-> 'id', „\ n”;
Wydrukuj „Nazwa studenta:”, $ std-> 'nazwa', „\ n”;
Wydrukuj „Marks Student:”, $ std-> 'Marks', "\ n \ n";

Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.

Przykład-3: Przeczytaj zakres wartości

Utwórz plik perla z następującym kodem, który iteruje dla każdego pętla oparta na wartościach tablicy zasięgu. W każdej iteracji wartość liczbowa zostanie pobrana od użytkownika i wprowadzona do tablicy. Wartości tej tablicy zostaną wydrukowane po zakończeniu iteracji pętli.

# Deklaruj tablicę
@linie;
# 4 razy iteruj pętlę
Foreach $ liczby (1… 4)

# Wydrukuj wiadomość dla użytkownika
Wydrukuj „Wprowadź numer:”;
# Weź dane wejściowe od użytkownika
$ line =;
# Dodaj wartość wejściową do tablicy
push @Lines, $ line;

# Wydrukuj wartości tablicy
Wydrukuj „\ Narray Wartości to: \ n”, @Lines;

Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.

Przykład-4: Przeczytaj zawartość pliku

Utwórz tekst nazwany mój plik.tekst z następującą zawartością przed przetestowaniem kodu tego przykładu.

mój plik.tekst

Perl jest językiem programowania ogólnego przeznaczenia.

Jest podobny w składni do języka C.

Jest to język otwarty i interpretowany.

Utwórz plik PERL z następującym kodem, który odczytuje zawartość mój plik.plik txt i wydrukuj zawartość pliku za pomocą dla każdego pętla. otwarty() Funkcja została użyta w kodzie do otwarcia pliku do odczytu. „„<” symbol is used to open a file for reading in PERL. Next, the dla każdego pętla została użyta do odczytu i drukowania linii zawartości pliku według linii.

# Ustaw nazwę pliku
$ filename = 'myfile.tekst';
# Otwórz plik do odczytu
Otwórz $ plik_handler, '<', $filename or die "Unable to open $filename file.";
# Przeczytaj każdy wiersz pliku za pomocą pętli foreach
foreach $ line ()
# Wydrukuj wiersz pliku
Wydrukuj $ linia;

Wyjście
Następujące dane wyjściowe pojawi się po wykonaniu powyższego kodu, jeśli mój plik.tekst Plik nie istnieje w bieżącej lokalizacji.

Po utworzeniu mój plik.tekst Plik, następujące dane wyjściowe pojawi się po wykonaniu powyższego skryptu.

Przykład-5: Kontroluj pętlę foreach za pomocą słowa kluczowego „ostatnie”

Utwórz plik perla z następującym kodem, w którym dla każdego pętla zostanie zakończona za pomocą ostatni Słowo kluczowe oparte na „Jeśli" stan. dla każdego pętla będzie iterowana 10 razy w oparciu o tablicę zasięgu. Pętla zostanie zakończona po iteracji pętli 4 razy.

# Zdefiniuj pętlę, aby iterować 10 razy
Foreach $ numer (1… 10)
# Wydrukuj bieżącą wartość
wydrukuj „Obecny numer to numer $.\N";
#Terminację pętli na podstawie warunku „jeśli”
ostatni, jeśli $ liczba> 3;

# Wydrukuj wiadomość o zakończeniu
wydrukuj „pętla jest zakończona.\N";

Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.

Przykład-6: Przeczytaj wartości wielu tablic

Utwórz plik PERL z następującym kodem, który wydrukuje wartości dwóch tablic numerycznych za pomocą jednego dla każdego pętla. Wartości dwóch tablic i scalone wartości tych tablic zostaną wydrukowane po wykonaniu kodu.

# Zdefiniuj pierwszą tablicę
@array1 = (20, 30, 65);
# Zdefiniuj drugą tablicę
@array2 = (45, 18, 60, 11);
Wydrukuj „Pierwsze wartości tablicy to: \ n”, dołącz (",@array1),„ \ n ”;
Wydrukuj „Wartości drugiej tablicy to: \ n”, dołącz (",@array2),„ \ n ”;
Wydrukuj „Wartości obu tablic to: \ n”;
# Przeczytaj wartości obu tablic za pomocą pętli
foreach $ numer ( @array1, @array2)

# Wydrukuj wartość tablicy
Wydrukuj „$ numer”;

wydrukuj „\ n”;

Wyjście
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu

Wniosek

Sposoby używania Foreach Pętla, aby przeanalizować jednowymiarowe tablice, dwuwymiarowe tablice, wiele tablic i zawartość pliku zostały pokazane w tym samouczku, aby pomóc użytkownikowi Perla poznać zastosowania dla każdego prawidłowo pętla w perl.